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10 
COBSSESCAPE_GENERATOR = Escape sequence generat 15-Sep-1984 99:0 ‘6 AX-11 Bliss-32 V4.0-74 Page 1 


14-Sep-1 COBRTL.SRCJCOBESCGEN.B52;1 (1). 
1 ZTITLE *COBSSESCAPE GENERATOR = Escape sequence generator for screen mgmt’ 
¢ MODULE COBSSESCAPE GENERATOR { 
st {DENT = '1-005" ! File: COBESCGEN.B32 Edit: STAN1003 
005 


BEGIN 


See AAR E AEA AAAAAEAAAAAAEAAEAEAEEAAAARE RAAT AAA AAAAAAAAAEEEAAAAEAAAREAEES 


'‘@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
'@ ALL RIGHTS RESERVED. 


t® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

t® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
ft 
tt 
* 
® 
® 
® 
® 
' % 
ie TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 


Ssss 
SeVe 


me a ee ee ed ed ed ed ed dd = dd = od dd = 
. 


ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i; OORPORAT bn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i DIGITAL_ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


WMPINONINPININININUNIDY 2 2 2 SS 
NOUS WN 0 ODNOUEWN “SO OOBNOAUE WD “OOOVNOUS WN “OOONOuUSWwN— 
OOooooooo oO oO 
SsoooooeeSeeooSS SSS SS SSSSeSS 
PMIPIPINPIPINDND 2 2 
NOUS WN (OVO ONOUS WO 


$3 PITTITITITITILILILILI LIT LLLTLI LLL LLL iti liitiiiiiiiiiiiiii 
1 

$0 
3 31 '+¢ 

3 : FACILITY: General Utility Library 

34 ABSTRACT: 

% i This module contains routines which return a device-specific 
3 st 44 : escape sequence to perform a specified function. 

6039 i These are low level routines; the burden of validity checking 

4 0040 : is on the caller. for example, buffers are allocated by the caller, 
4 0041 : and these routines do not check for overflowing the buffers bounds. 
4 Rng ‘ If the device is not a video terminal, no escape sequence will be 
2 B07 generated, and the routine will return with a success status. 
2 gos ; ENVIRONMENT: User mode, Shared Library routines. 
ri G04? AUTHOR: P. Levesque, CREATION DATE: 7-Mar-1983 
49 9 1 | MODIFIED BY: 
50 050 : 
3) 51 ! 1-001 = Original. PLL 77-Mar-1983 
§ 2 ! 1-002 - Add COBSSSET_ATTRIBUTES ONLY. 
5 5 : Fix call to COBSSSET_CURSOR_ABS_R4 in COBSSSET_CURSOR_REL. 

28 54 : Fix to COBSSSET_CURSOR_REL. If we are at the Tst colin and the 
5 55 ; previous character was a <CR>, then the terminal driver may give 
56 8038 : us a ‘free’ <LF> on our next operation if it is a read. To avoid 

57 005 : the problem, just make sure <CR> is not the last thing in the 


te SCAPE GEN COBSSESCAPE_GENERATOR = Escape sequence generat 15-50 yen- 138% 99:06: 34 


1003 = Removed informational errors. STAN 24-Jul-1984. 


- 


ep- 
— buffer. 


Chante sreicosesccen. 92:1 


ename module from SMGSSESCAPE_GENERATOR to art ge =D m< {eg 


Page 4g 


Declarations 


H eclarations 
65 } ESBTTL "Decl ions’ 
3 85 | 1 SWITCHES: 
; 9 i) 3 1 
3 0 1! 
eae y 1 ! LINKAGES: 
a. 71 1! 
sm i 1! NONE 
ot: 73 1! 
; 9 re | : INCLUDE FILES: 
cn © 6 1 REQUIRE "RTLIN:COBPROLOG'; 
$ 78 1593 1 
; «479 1594 1 REQUIRE "RTLIN:COBLNK'; 
: 80 1669 1! 
; «(BI 1670 1 ! TABLE OF CONTENTS: 
:; 8 1671 1! 
3 8 1076 1 
; (84 1673 1 FORWARD ROUTINE 
3; ©6885 1674 1 
: 86 1675 1 
or 1676 1 COBSSERASE_LINE_R2 : COBS 
; 688 1677 1 COBSSERASE_PAGE Re : 
; «889 1678 1 OBSSERASE- WHOLE _LINE_R 
; 90 1679 1 
; (91 1680 1 COBSSSET_ATT 
: 32 1681 1 COBSSSET“ATTRIBUTES_ONLY, 
i § 1682 1 COBS$SET-CURSOR_ABS_R4 
; | (94 1683 1 OBS$SET~CURSOR_R 
: 95 1684 1 OBSSSETOP_TERM TYPE, 
: 96 1685 1 COBSSUP_SCROLL_R2 : COBSSESC_R2_LNK; 
: #9 1686 1 
3; (98 1687 1! 
3; 299 1688 1 ! MACROS: 
: 100 1689 1! 
: 101 1690 1 
3 10¢ 1691 1! 
: 10 1698 1 ! EQUATED SYMBOLS: 
3; 104 1693 1! 
3: 105 1694 1 
3 106 1695 1! 
: 107 1696 1 ! FIELDS: 
3 108 1697 1! 
5s § 1698 1! NONE 
: 110 1699 1! 
> (111 1700 1 ! PSECTS: 
: 11g 170) 1! 
> 11 17 4 1 
> 114 1703 1 ! OWN STORAGE: 
3: (115 1708 1! 
3 116 1705 1! NONE 
oe 1706 1 
: 118 17 1! 
3 (11 1708 1 ! EXTERNAL REFERENCES: 
3 130 1709 1! 
: 121 1710 1 


10 
C N +3 AP NERAT = > - 7:06:34 - 
SCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 18 Sep 1386 99:06:34 AX-1 6 ; 32 Page 


1 Bliss- Fh ied 
-Sep-1 COBRTL.SRCJCOBESCGEN.B52;1 


! Defines psects, macros, & 
!' terminal defs 
! Linkages 


COBSSDOWN SCROLL_R2 : COBSSESC_R2 LNK, ! Creat downscroll sequence 
SESC_R2_CNK, ! Create erase Line sequence 


! Create erase page sequence 


$ . 
C —WHOLE_ _R2 : COBSSESC_R2_LNK, ! Create erase whole Line sequence 
COBSSERASE buTee : COBSSESC_R oLNK, ! Create erase whole page sequence 


Create set attributes sequences w text 
Create set attributes sequences w no text 


' 
SOESC MLM.) Create absolute set cursor sequence 


reate relative set cursor sequence 
' Setup terminal type for COB$$ calls 
!' Create upscroll sequence 


23 


FORSSESCAPE GEN 


te 4 


Dec 
1 
1 
1 
1 

71 

71 


Cul wn— . 


conreescoret 


} EXTERNAL ROUTINE 
LIBSFR r 
I Fe err 


1 
1 
1 
1 


LIBSGET_ 
' <BLF /PAGE> 


GENERATOR = Escape sequence generat 16- sep-1984 99:08:34 AX-11 Blis 


! free event flag number 
i get event flag number 


COBRTLS SRC 


ae Stan. B82: 31 


ORS ET SCAPE GEN 
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. 
* 
. 
° 
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OR = Escape sequence generat 16-Sep-1 06:34 AX-11 BLi 
L. } - Create ounscrett SCeusnt 1 =300 71382 99:06:34 COBRTL  SREd 
SBTTL *COBSSDOWN SCROLL_R2 = Create d Ll “ 
ROUT INE COBSSDOUNTS ROLL. R2 ( epee gasant 
TERM pVPE. 


D> 


CUR_SIf 
Fe d: COBSSESE_R2_LNK = 
; FUNCTIONAL DESCRIPTION: 


This routine generates the wegepe sequence for down scroll 
and appends the string to a given output buffer. 


i CALLING SEQUENCE: 


ret_status.wlc.v = COBSSDOWN_SCROLL_R2 (TERM_TYPE.rl.v, BUFFER.mt.r, 
CUR_SIZE.mi.r) 


i FORMAL PARAMETERS: 

i TERM_TYPE.rl.v terminal type 
BUFFER. mt.r addr of butter 
CUR_SIZE.ml.r # bytes currently in buffer 
i IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

i NONE 

i COMPLETION STATUS: 


i SIDE EFFECTS: 


NONE 
BEGIN 
LOCAL 
FREE_ADDR; 
BIND 
v19 _DOWN = UPLIT (BYTE (CR, VTOS_CUP, NULL)), 
VTS2~DOWN = UPLIT (BYTE (ESC, V1T52_DWN)) 
VT100_DOWN = UPLIT (BYTE (ESC, VT100_DWNS); 


FREE_ADDR = .BUFFER + ..CUR_SIZE; 
CASE .TERM_TYPE FROM UNKNOWN TO HARDCOPY OF 
CvT05): 
Be 


GIN 
CHSMOVE (3, VTOS_DOWN, .FREE_ADDR); 
.CUR_SIZE = ..CUR_SIZE + 3; 


11 
OBSSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 1B-Se 1984 00:06:34 AX-11 Bliss-32 V4.0-74 Page 6. 
tht COBSSDOWN_STROLL_R2 = Create downscrott Fequenc 132800- 138. 99:9 744 COBRTL. RC ICOBESCGEN.B 2;1 . (3). 
. 4 1774 END; 
; 187 158 tvt52) 
: 188 | 170% CHSMOVE (2, VTS2_DOWN, .FREE ADDR) 
; «6191 1338 " SIZE = . «CUR_SIZE +2; 7 
: 136 1780 ; 
; #19 1781 
; 6194 17 ¢ CvT100]: 
3; 195 17 N 
; 196 1784 CHSMOVE (2, VT100_DOWN, .FREE_ADDR); 
: 197 1785 -CUR_SIZE = ..CUR_SIZE + 2; 
; 4198 17 § END; 
3; «6199 17 
: 00 1788 CHARDCOPY, UNKNOWN, VTFOREIGN]: 
; 201 1789 : 
5 o 1790 
; 0 1791 CINRANGE, OUTRANGE): 
; 2046 1736 RETURN 0; ! should never get here 
3 $0? 179 
; 06 1794 TES; 
; sor 1795 
3 08 1796 § RETURN (SS$_NORMAL) ; 
: 209 1797 
; 210 1798 #1 END; 
-TITLE COBSSESCAPE_GENERATOR COBSSESCAPE_GENERATOR - E 
: scape sequence generat 
-IDENT \1-003\ | 
-PSECT _COBSCODE,NOWRT, SHR, PIC,2 
00 1A OD 80000 P.AAA: BYTE 13, 26, 0 3 
0000 -BLKB 1 
49 1B 00004 P.AAB: .BYTE 27, 73 8 
0000 -BLK 
4D 1B 00008 P.AAC: .BYTE 27, 77 3 
VT05_DOWN= P.AAA | 
VI 36 DOWN= P.AAB 
VT100_DOWN= P.AAC 
-EXTRN LIBSFREE_EF, LIBSGET_EF 
51 62 CO 00000 COBSSDOWN_SCROLL_R2:: 
ABDL2 TCUR_SIZE), FREE_ADDR : 1766) 
05 44 50 CF 0000 CASEL TERM-TYPE, #0, #5 : 1768. 
001F 0019 000E o0¢6 000 . WORD -1$,- 3 
0026 0026 000F $-1$,- 3 
$-1$,- 3 
4$-1$,- ° | 
es-18" Pe 
11 \3 BRB $§ 3: 1792. 
Fe 15 28: INSV VTO5_DOWN, #0, #24, (FREE_ADDR) : 1772 | 
C 1B ADDL2 #3. Tcur_ $125 > 1773 | 
11 OOO1E BRB 6 : 176 


ESCAPE_GEN COBSSESCAPE rae OR = Escape sequence generat 18 wig -1984 AX-11 Bliss- 
rons EOBSEDOUN &C Re Create downscroit Fequenc 1 ma 1 99: 96:3 COBRTL.SRC cObete gg, 31 


61 D7 AF 99 68 0 3$: MOVW T52_ DOWN, (FREE_ADDR) 
04 4 BR83 
61 DS AF BO 00026 4$: MOVW VT100_DOWN (FREE_ADDR) 
62 2 CO 0002A 5$: ADDL2 He, (CUR_ SIZE) 
50 1 BO 00020 6$: MOVL * RO 
05 00030 RSB 
50 D4 00031 7$: CLRL RO 
05 00033 RSB 


; Routine Size: 52 bytes, Routine Base: _COBSCODE + OO0A 


3; eu 1799 1 !<BLF/PAGE> 


OBSECSCAPE GEN 


an 
SS 
rw 
rer 
mm 
aw 
>o 


SUIS 


polo lolololo! 


WAI NAIA PIPININPININPIPYININY 2 OO OS 


VIFSWN—OOONOUESWN -"ODOONOUEWw 
FUN — OC OONAVE AR SO OONOUS 


POPOPOPURYD 2 2 tO 


11 


Dd 

APE GENERATOR = Escape sequence generat 16-Sep-1984 00:06:34 
SE_CINE_R2 = Create Crese ne sfquence 12-80 8=138e 99:98:22 
ZSBITL ‘COBSSERASE LINE_R2 = Creat li . 
GLOBAL ROUTINE COBSSERASE LINE RZ Ce Ce Seauence 

TERM_TYPE, 

BUFFER 

CUR_SIZE 


“te: ) : COBSSESC_R2_LNK = 
FUNCTIONAL DESCRIPTION: 


This routine generates the escape sequence for erasing a 


osition. 
uffer. 


Line from the current cursor 
appended to the given output 


i CALLING SEQUENCE: 


ret_status.wic.v = aeentietitis | 


i FORMAL PARAMETERS: 


TERM_TYPE.rl.v terminal type 
BUFFER.mt.r addr of butter 
CUR_SIZE.ml.r 


The string is 


R2 (TERM_TYPE.rl.v, 
FER.mt.r, CUR_SIZE.ml.r) 


# bytes currently in buffer 


updated to reflect erase seq added 


i JMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE, 

i COMPLETION STATUS: 


i SIDE EFFECTS: 


PUPS Ee EE BE EE PW 
—OO0e SOAP WOOD NONE WN ODO IO 


oon 


> PIPIPIPOPIPIPOPIPININININIPININININININININININ NINO NoNoNoNyNoNny 


PPG IP IP INI IPI INI IAN th 


PU BB BB EE EE FAWN rornononony) 
AF WN OO OOVNOA UNE WN O ODNOAUESWN —"OO0OnNOou 
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. 
° 


! addr of next free byte in buffer 


NONE 

BEGIN 

LOCAL 
FREE_ADDR; 

BIND 
V1O5_LINE = UPLIT (BYTE (VTOS_EOL, NULL, NULL)), 
vT : LINE = UPLIT (BYTE (ESC, VT52_EOL)), 
VT100_LINE = UPLIT (BYTE (ESC, LB,~VT100.E0! )); 


FREE_ADDR = .BUFFER + ..CUR_SIZE; 
CASE .TERM_TYPE FROM UNKNOWN TO HARDCOPY OF 


CvT05): 
BEGIN 


51 

05 00 

001F 0016 443 
002 

61 18 00 
61 

62 


00 


4B 


00 
4B 
58 


at Oi legen V4.0-74 
COBRTL.SRCJCOBE 


11 
CORSET CAPE GEN COBSSESCAPE GENERATOR = Escape sequence generat 16-Sep-19 4 99:9 734 
COBSSERASE_CINE_R2 = Create erase Line sequence 14-Sep-1984 12:10:44 
; 270 1857 CHSMOVE (3, VTOS_LINE, .FREE_ADDR); 
: 271 1858 .CUR SIZE = ..CUR_SIZE + 3; 
: $t8 1866 a 
> 274 1861 {vT52): 
: 275 1 86 BEGIN 
: 276 186 CHSMOVE (2, VTS2_LINE, .FREE_ADDR); 
: 277 1864 .CUR_SIZE = ..CUR_SIZE + 2; 
; 278 1932 END; 
; 279 1 of 
; 280 18 CvT100): 
; a 1 of BEGIN 
; ¢ 186 CHSMOVE (3, VT100_LINE, .FREE_ADDR); 
3; a 1870 -CUR_SIZE = ..CUR_SIZE + 3; 
; 284 137) 3 
; 285 1 es 
; 86 197 CHARDCOPY, UNKNOWN, VTFOREIGN): 
3 eer 1874 3 
; 288 1875 
> 289 1378 CINRANGE, y erence: 
; 290 187 RETURN 0; ! should never get here 
: 291 1878 
; 4 1879 TES; 
: 29 1880 
3 294 1881 RETURN (SS$_NORMAL) ; 
; 295 13e6 
; 6 18835 1 END; 


! End of routine COBSSERASE_LINE_R2 


000% BLK 
1E 00040 P.AAD BYTE 
00043 BLK 
1B 00044 P.AAE: .BYTE 
00046 ~BLK 
1B 00048 P.AAF: .BYTE 
VTOS_LINE= 
VT § LINE= 
VT100_LINE= 
CO 00000 COBSSERASE LINE. 33 
ADBL 
CF 00003 CASEL 
0007 1$: - WOR 
000F 
11 O0etz BRB 
FO 00015 28 INSV 
RE ss, By 
0 6 4 ADDL2 
1 00024 BRB 


$0, 0, 0 
37, 75 
aT 91, 75 

P. AAD 

" AAE 

PL AAF 
R2 
(CUR_SIZE), FREE_ADDR 
TERM"TYPE, #0, #5 
6$-15,- 
g$-18.- 
$-1$.- 
4$-1$.- 
63-1$.- 
g$-15 
yTO5_LINE, #0, #24, (FREE_ADDR) 
VTS2_LINE, (FREE_ADDR) 
ie TCuR_SIZE) 


SCGEN.B52;1 


Page 


9 
(4). 


FRBRESCae.cem sonaescet ct 


61 


3; Routine Size: 


: 297 


18 


54 bytes, 


ENERATOR = Escape se qnce enerat 
NE_R2 = Create Grease li Z 


Routine Base: 


1884 1 !<BLF/PAGE> 


Dé 
i 


50 


-COBSCODE + 


Tine sequence 


05 000 


0048 


Fi 
1823 


5 


1 
- AX-11 Bliss-32 v4. 
st 99: 98: i COBRTL Se a Ne N.B32;1 
: N VI100_LINE, #0, #24, (FREE_ADDR) 
#5, (TUR_SIZE) 
+ 26 
RO 


11 
COBSSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 1B-5¢ “1984 00:06:34 AX-11 Blis 
th COBSSERASE_PAGE_R2 = Create Crease page ssquence 1 ~300- 138% 99:9 244 COBRTL. Red 


1 ZSBTTL ‘COBSSERASE PAGE _R2 - gragte erase page sequence’ 
GLOBAL ROUTINE COBSS ERASE PASE A ( 


BUFFER 
CUR site 
) : COBSSESC_R2_LNK = 


DONOW 


VI52 ERASE = UPLIT (BYTE (ESC, VT5é 


_£0$)5, 
_ERASE = UPLIT (BYTE (ESC, LB,~VT100.E0S)); 


; 1 
; 1 1 
; 1 1 
3 1 1 
: oe 
: 305 1891 1 !+¢ 
; : 4 : : FUNCTIONAL DESCRIPTION: 
; 308 1894 1! This routine generates the escape sequence for erasing the 
; 309 1895 1! page from the current cursor position to the end of the 
; 19 : 38 : } page. The sequence is appended into the output buffer. 
: 31 1898 1 / CALLING SEQUENCE: 
$ 1 1 1! 
; 3146 1900 1! ret_status.wic.v = COBSSERASE_PAGE_R2 (TERM_TYPE.rl.v, 
3 12 1384 : BUFFER.mt.r, CUR_SIZE.ml.r) 
; " 1908 ! FORMAL PARAMETERS: 
; 319 1905 1 TERM_TYPE.rl.v terminal type 
; 320 1306 1! BUFFER. mt.r addr of buffer 
; $) bt : CUR_SIZE.ml.r # bytes currently in buffer 
; $§ 1909 1 | IMPLICIT INPUTS: 
; $e 1910 1! 
: 35¢ 1912 1 | _ 
: 327 1918 1 + IMPLICIT OUTPUTS: 
3 28 1914 1! 
iB fii 
> 331 1919 1 i COMPLETION STATUS: 
See ae 
; 4 1920 1 | SIDE EFFECTS: 
Spot 8 ao 
i 38 ae ats 
; 39 1925 BEGIN 
> 341 1959 LOCAL 
3 § 19 3 FREE_ADDR; ! addr of next free byte in buffer 
; Gel 1980 ND 
; 5 3 1 VTOS_ERASE = UPLIT (BYTE (VTOS_EOS, NULL, NULL)), 
; of 1938 vTi 

; 49 1935 FREE_ADDR = .BUFFER + ..CUR_SIZE; 

; 31 Ht CASE .TERM_TYPE FROM UNKNOWN TO HARDCOPY OF 

; 34 1936 Cvt05): 

: 54 1940 BEGIN 

5 55 1941 CHSMOVE (3, VTOS_ERASE, .FREE_ADDR); 


COBESCG 


Oy BS2:1 


Page 11 
oO 


COBSSESCAPE GENERATOR = Escape sequence generat 16-Sep-1 Ax-11 B -32 v4.0- 
COBSSERASE _PAGE_R2 = Create erase pepe sequence 1$-bep-1964 99: 9:3 COBRTL. OR ¢ coaes SCGEN. B82: 31 — (3 
-CUR_SIZE = ..CUR_SIZE + 3; 
: END; 
Be? CvT52): 
3 Chshove (2, VTS2_ ERASE, .FREE_ADDR); 
mt .CUR_SIZE = ..CUR_SIZE + 2; 
35 ' 
g ; CvT100): 
3 § VE (3, VTI00_ERASE, ,FREE_ADDR); 
954 CUR USIZE = ..CURTSIZE + 3; 
Be? END;~ 
357 CHARDCOPY, UNKNOWN, VTFOREIGN): 
959 ‘ 
960 C INRANGE TRANGE): 
+d RETURN 0: ! should never get here 
368 TES; 
965 RETURN (SS$_NORMAL) ; 
967 1 END; ! End of routine COBSSERASE_PAGE_R2 
00081 BLKB 
00 00 1F 00084 P.AAG: .BYTE 31, 0, 0 3 
00087 BLKB 1 
4A 1B 00088 P.AAH BYTE 7, 74 ; 
0008 -BLKB 
4A 5B 1B OO08C P.AAI: .BYTE 7, 91, 74 : 
vT05 ~ERASES P.AAG 
Vi 3eae RASE= P.AAH 
VT100_ERASE= P.AAI 
51 62 CO 00000 COBSSERASE _PAGE_R2:: 
ARSE TEM HERE gptepstOO a 
oor 006 038 " 009 8? 18: WORD 6$-18,- ©” ; 
002 028 000F $-1$,- 3 
$-1$,- 3 
4$-1$,- 3 
6$-1$,- ° ! 
$-1$ : 
1E 11 Sole BRB $ : 1961. 
18 00 DD AF FO 00015 2%: INSV TOS_ERASE, #0, #24, (FREE_ADDR) : 1941. 
61 d9 er a0 1p 3$ Rov v152, ERASE stREE ADDR) ; 1909 
62 08 0 ! ADDL2 . TCUR_SIZE 1948 
18 00 D4 AF FO 00026 48: INSV VTI00_ERASE, #0, #24, (FREE_ADDR) 1985 


nn 


COBSEESCAPE GEN coess 


; Routine Size: 


; 382 


54 bytes, 


5) 


Routine Base: 


1968 1 !<BLF/PAGE> 


SCAPE_ GENERATOR = Escape sequence 
RASE_PAGE_R2 = Create erase page 


50 


-COBSCODE + 


generat 1 


008F 


sequence 1 


st 


Sep- 
~bep- 


1986 92:98:46 


ADDL2 #3, (CUR_SIZE) 
#1, RO 


CLRL RO 
R 


AX-11 Bliss-32 V4.0-7 Pa 
COBRTL SRE ICOBESCGEN. B82: 1 - 


11 

SSESCAPE_GEN COBSSESCAPE GENERATOR - Escape sequence generat 1b-Se -1984 00:06:34 AX-11 Bliss-32 V4.0-74 
itt i COBSSERASE_QHOLE_LINE_R2 - Create erase Shole (1 73007138 99:98 ;24 {CORTE SRE cose SGN. B92: 1 
; 136 1 ZSBTTL ‘COBSSERASE WHOLE LINE _R2 - gregte erase whole Line sequence’ 
3 5 1 1 GLOBAL ROUTINE COBSSERASE WHOCE_LINE_R2 ( 
FH 1971 1 TERM_TYPE, 
3 444 1 BUFFER 
: 197% ys EebSLEE po 
: 50 1998 1 100 : COBSSESC_R2_LNK = 
; 4 1378 ; FUNCTIONAL DESCRIPTION: 
; 98 1978 ii This routine generates the escape sequence to erase the entire 
; 394 1979 1! Line gg the current cursor position. The string is 
; 95 1390 : : appended into the output buffer. 
: 3 198¢ 1 Notice that only VT100s have the ability to erase an entire 
; 398 1985 1! Line regardless of whether the cursor is at the yy 
; 399 1984 1! of that Line. Most terminals can only erase from the cursor 
3 res 1382 : } to the end of Line. 
; 49 1387 i CALLING SEQUENCE: 
3 404 1989 1 ret_status.wic.v = COBSSERASE_WHOLE_LINE_R2 (TERM_TYPE.rl.v, 
: 405 1990 1! BUFFER.mt.r, 
3 rts Hb ad : CUR_SIZE.ml.r) 
: 408 1998 i FORMAL PARAMETERS: 
; 410 1995 1! TERM_TYPE.rl.v terminal type 
: 411 1996 1! BUFFER. mt.r addr of butter 
3 tig Hb a4 : : CUR_SIZE.ml.r # bytes currently in buffer 
: 414 1999 1 | IMPLICIT INPUTS: 
s 615 sono 1! 
: 4i$ O02 | | -_ 
: 418 3008 1 ' IMPLICIT OUTPUTS: 
3; 419 004 1! 
; 420 005 1! NONE 
; 421 O06 . 4 
3s 6 § 007 1 ! COMPLETION STATUS: 
Be 
; 635 010 1 ' SIDE EFFECTS: 
. oon ee 
7: eee 
; <$0 19 BEGIN 
; a2 O19 LOCAL 
; 43 aig FREE_ADDR; ! addr of next free byte in buffer 
: Gee $30 ND 
; 436 021 VTOS_LINE = UPLIT (BYTE (VTOS_EOL, NULL, NULL)), 
3 43 9 : vT : LINE = UPLIT (BYTE (ESC, VT5¢_EOL)5, 
; 438 ; VT100_WHOLE_LINE = UPLIT (BYfE (ESC. LB, TWO, VT100_EOL)); 
: 440 5 | EE_ADDR = .BUFFER + ..CUR_SIZE; 


0022 


K 11 
RATOR = Escape sequence generat 16-Sep-19 2:06:34 AX-11 Bliss-32 V 
LETC ING 2 e Create erase ghote l 12-8681 382 99:9 744 COBRTL. Re 


8 § CASE ~TERM_TYPE FROM UNKNOWN TO HARDCOPY OF 
$ CvT05): 
0 BEGIN 
1 CHSMOVE (3, VTOS_LINE, .FREE_ADDR); 
: .CUR_SIZE = ..CUR_SIZE + 3; 
8 END; 
035 CvT52): 
0 BEGIN 
8 CHSMOVE (2, VT5S2_LINE, .FREE_ADDR); 
§ .CUR_SIZE = ..CUR_SIZE + 2; 
0 END; 
be CvT100) 
beg BEGIN 
04 CHSMOVE (4, VT100_WHOLE_LINE, .FREE_ADDR); 
044 -CUR_SIZE = ..CUR_SIZE # 4; 
Bee END; 
O67 CHARDCOPY, UNKNOWN, VTFOREIGN]: 
049 
050 CINRANGE, OUTRANGE): 
3 RETURN 0; ! should never get here 
$3 TES; 
054 
32? RETURN (SS$_NORMAL) ; 
50s? 1 END; ! End of routine COBSSERASE_WHOLE_LINE_R2 
000C5 -BLKB ; 
00 00 1& QO00C8 P.AAJ: .BYTE 0, 0. 0 
cB -BLKB 1 
48 1B QOOCC P.AAK: .BYTE ¥, 
ce -BLKB 
48 32 5B 1B 00000 P.AAL: .BYTE rH, 
VTOS_LINE= P.AAJ 
VT LINE=  AAK 
VT100_WHOLE_LINE= P.AAL 
51 62 CO 00000 COBSSERASE _WHOLE_LINE_R2:: 
ADBL2  TCUR_SIZE), FREE_ADDR 
05 00 50 CF 0000 CASEL JERS TYPE, #0, #5 
0019 43 534 0007 1$: -WORD 5$-15,- 
002 029 000F 5 att So 
$-1$,- 
4$-1$,- 
23-13-" 
$-1$ 
11 00013 6$ 


COBESCGEN 


RASES GENERATOR = Escape sequence 
-LINE_R2 = Create erase whole | 


-COBSCODE + 0004 


9c 12:10:06 — ECdantu’sneScoseSccen.082,1 


#24, (FREE_ADDR) 


INSV. VTOS_LINE 

ADDL2 Hy TCUR $1 "5 

MOVW vis2 INE (FREE ADDR) 

ADDL2 ee EUR $12 

MOVL. vT100 WHOLE ak INE. (FREE_ADDR) 
ADDL2 a4, » <CUR_S UR_S 

MOVL 

RSB 

CLRL = RO 

RSB 


#11 
PE_GENERATOR = Escape sequence generat 16-Sep-1 2:06:34 AX-11 Bliss-32 V4.0-74 
E LE PAGE _R2 - Create erase Shote pi 730071 38e 99:9 744 COBRTL SRESCOBESCGEN B82; 1 


cogs SCAPE _GEN Fos 


¢ Page HF 


; 475 59 1 ZSBTTL ‘COBSSERASE ryt PAGE_R2 - gregte erase whole page sequence’ 
: 47 1 GLOBAL ROUTINE COBSSERASE WHOLE PAGE_R2 ( 

: 47 1 TERM TYPE, 

3; 47 1 FFER 

; 4 1 CUR site 

cg 1 ) : COBSSESC_R2_LNK = 

5 © 5 1 tee 

; 4 ; i FUNCTIONAL DESCRIPTION: 

: 6 ii This routine generates the escape sequence to erase the 

; 485 BS 1! whole page regardless of cursor position. The string ‘s appended 
3 : oF : H into the output buffer. 

: 6 72 1 ' CALLING SEQUENCE: 

: 489 073 1 

: 490 074 1! ret_status.wic.v = COBSSERASE_WHOLE_PAGE_R2 (TERM_TYPE.rl.v, 
: 491 075 1! BUFFER. mt.r, 

s 3 659 ; } CUR_SIZE.ml.r) 

; 49% 078 1 ; FORMAL PARAMETERS: 

: 4 080 1: TERM_TYPE.rl.v terminal type 

; 49 081 1! BUFFER. mt.r addr of buffer 

: res | oes ' CUR_SIZE.ml.r # bytes currently in buffer 

; 300 084 1} IMPLICIT INPUTS: 

: 501 085 ; 

(i toe gp es me 

: 504 088 1 | IMPLICIT OUTPUTS: 

: 505 089 ; 

‘eo iim 

: 508 09¢ 1 | COMPLETION STATUS: 

Ro Re 

; 1 095 ; SIDE EFFECTS: 

; 1§ a NONE 

> 515 oo 

; if 100 BEGIN 

B i 3 socy 

; 19 198 FREE_ADDR; ! addr of next free byte in buffer 
2 Oe ea nat 

8 s 6 H 

: 5 § if COL = 35: ive 3 bias 

: 525 10 IND 

3 g 110 VTOS ERASE = UPLIT (BYTE (VTOS_EOS, NULL, NULL)) 

: 111 VT52_°RASE = UPLIT (BYTE (ESC, VI $56 CINET, COL1, 

; g 11¢ ESC. VT52~E08)), 

; 113 VT100_ERASE_WHOLE = UPLIT (BYfE (ESC, LB, TWO, VT100_E0S)); 
; 334 115 FREE_ADDR = .BUFFER + ..CUR_SIZE; 


ross SCAPE _GEN Poesee scare 


g 


5 


aa tk tk at tt ts 2 a 8 8 tt 


DANN EE EEE EEE EE 


MO CONOUSWN—o 


od 
oo MEAN “CO OENOUES WN "OOONO 


® 
3 


GE wth = Escape sequence generat 1 b-Se0-1984 99: 06: 36 AX-11 Bliss-32 V4.0 


RASE_QHOLE_PAGE_R2 = Create erase whole p 14-Sep-19 COBRTL  SREICOBESCGEN. 3 231 
cae E .TERM_TYPE FROM UNKNOWN TO HARDCOPY OF 
CvT100): 
erent (4, VT100_ERASE_ WHOLE, .FREE_ADDR); 
-CUR_SIZE = ..CUR_SIZE # 4; 
énbe 
CvT52): 
BEGIN 
i "there is no sequence to erase the screen and leave the 
i cursor where it was, so on a VT52 we have to settle for 
. Setting the cursor to 1,1 and erasing to the end of screen. 
cnSMove {6, vT52 epase, -FREE_ADDR); 
-CUR_SIZE = ..CUR_S + 6; 
END; 
CvT05): 
CRSHOVE (3, vT05 erie «FREE_ADDR); 
-CUR_SIZE = ..CUR_S + 3; 
END;~ 
CHARDCOPY, UNKNOWN, VTFOREIGN]: 
CINRANGE, OUTRANGE): 
RETURN 0; ! should never get here 
TES; 
RETURN (SS$_NORMAL); 
END; ! End of routine COBSSERASE_WHOLE_PAGE_R2 
0108 -BLKB 1 
00 00 1F QO10C P.AAM: .BYTE 31, 0, 0 
010F -BLKB 1 
4A 18 20 20 59 18 O18 P.AAN fT 2° 89, 32, 32. 27, 74 
4A 32 5B 18 00118 P.AAO: ‘BYTE 27, 91, 50, 74 
ofRASE® P.AAM 
Mt “ERASE= P.AAN 
vT100  ERASE_WHOLE= P.AAO 
OOF8 8F BB 00000 COBSSERASE WHOLE PAGE R2:: 
PUSHR  #*M<R3,R4,R5,R6,R7> 
26 5 09 MOV R2, 
3 1 2 C oF ADDL ts (COR SIZE), Pat ot FREE_ADDR 
5 00 CF CASEL TERM_TYPE, #0, # 
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CORSET SCAPE GEN 


MEW O OONOUS Wn 
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12 
SCAPE_GENERATOR = Escape sequence generat 1h-s6 =1984 06:34 AX- 
ET_ATTRIBUTES = Create set attributes seq 12280871382 99:98 a0 {Coe 
ZSBTTL ‘COBSSSET_ATTRIBUTES = Create set attributes sequence’ 
GLOBAL ROUTINE COBSSSET ATTRIBUTE . 
TERM_TYPE, 
IN_TEXT, 
IN_LEN, 
FLAGS, 
OUT_BUF, 
, OUT_LEN 


'e4 
FUNCTIONAL DESCRIPTION: 
This routine generates the escape sequence turning on 
attributes such as bolding and blinking. The attribute 
sequence is placed in the output buffer, the input text 
s copied over, and then the sequence to turn off graphics 
is appended. 


CALLING SEQUENCE: 
-fl.ev, FLAGS. rl.v 


FORMAL PARAMETERS: 


TERM_TYPE.rl.v 


terminal type 
IN_TEXT.rt.dx ' 


descriptor of text which will have attr on 
IN_LEN.rl.v Length of caller's text 


OUT“LEN.ml.r # bytes in output buffer 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 


SIDE EFFECTS: 
NONE 


i 
i 
i 
i 
i 
1 
i 
i 
i 
' 
4 
i 
i 
i 
i 
i 
i 
i 
OUT_BUF .mt.r addr of output fer 
1 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
leo 

BEGIN 


LOCAL 
FREE _ADDR; 


MACRO 
VT100_OFF = ZSTRING (ZCHAR (ESC), ZCHAR (LB), 'Om')2; 


11 Bliss-3 
RTL.SRCIJCO 


ret_status.wic.v = COBSSSET_ATTRIBUTES SS wy TYPE.rl.v, IN_TEXT.rt.r, 
OUT_BUF .mt.r, OUT_LEN.m(.r) 


FLAGS.rl.v flags speci tying which attributes to turn on 
uf fe 


includes attributes, 
caller's text, & turn off graphic rendition 


roe ot 


D 12 
enerat 16-Sep-1984 


SSESCAPE_GEN COBSSESCAPE_GENERATOR = Escape sequence :06:34 AX-11 Bliss-32 V4.0-74 Page 21 
ei COBSSSET_ATTRIBUTES = Create set attributes seq 14-Sep-1984 90:98:26 YCOBRTL-SRCICOBESCGEN.B 2;1 . B 
; 6 11 
3 ? 4 1g FREE_ADDR = .OUT_BUF + ..OUT_LEN; ! init to first free byte 
; ? 1 13 CASE .TERM_TYPE FROM UNKNOWN TO HARDCOPY OF 
3 6 5 1 CHARDCOPY, UNKNOWN, VTOS, VT52, VTFOREIGNI: 

3 ? ¢ : BEGIN 

s 6 : i$ ! Renditions not supported on these devices. Just 
3 e ‘ copy the text into the output buffer and return. 
; 639 ¢ CHSMOVE (.IN_LEN, .IN_TEXT, »FREE_ADDR); 

; 640 -OUT_LEN = ..OUT_LEN # - IN_LEN; 

; 641 4 RETURN (SS$_NORMAL); 

3 ots 5 END; 

> 644 § CINRANGE, GyTAAnee 2: 

3; 645 28 RETURN 0; ! error 

; 646 $§2 

; 667 6 CvT100): 

; 648 231 BEG! 

; 649 3 IF .FLAGS <0,4> EQL 0 

; 650 THEN 

; 651 4 & BEGIN ! no attr requested 

; $26 § 5 4 CHSMOVE (.IN_LEN, .IN_TEXT, .FREE_ADDR); 

; 65 6 4 -OUT_LEN = ..OUT_LEN # - IN_LEN; 

: 654 237 4 RETURN (SS$_NORMAL); 

3; 655 238 ; END; 

: 656 239 1+ 

; 657 240 ' For each attribute bit set in flags, copy 

; 658 $$e4 ' the aperepr ‘ety ASCII graphic rendition byte 

3; 659 2 g ! followed H a ‘;' into the output buffer. 

3 4 $sez Note use of autoincrementing. 

; $66 2245 CHSWCHAR_A (ESC, FREE_ADDR); 

3; 66 2246 CHSWCHAR-A (18 FREE_ADDR); 

3 664 247 INCR I FROM 0 fo 3 

: 665 248 dO . 
; 666 249 4 BEGIN ! build attribute string 
3; 667 250 4 IND 

: o68 $31 ? ATTRTABL = UPLIT (BYTE ('1754")) : VECTOR (4, BYTE); 
; 670 $3 4 IF .FLAGS <.I, 1> 

3; 671 See 4 THEN 

3; «67 7. . BEGIN 

; 67 256 5 CHSWCHAR_A (.ATTRTABL C.1], FREE_ADDR); 

3 674 57 é CHSWCHAR_A (2%C';", FREE_ADDR); 

3; 675 58 -OUT_LEN = . ouT_CEN + 2; ! keep updating length 
3 676 59 4 3 

3; 67 60 END; 

3; 678 61 

3; 679 $6 '¢ 

; 680 6 ! when we fall out of above loop we have deposited 
; 681 64 ' an extra ‘;* at the end of the buffer. Back up 
: ors Fi } FREE_ADDR and write VT100_SGR on top of it. 

: 684 89 FREE_ADDR = .FREE_ADDR - 1; 


POPOROPONONOPURIPOPOROPOPoNofononofornonofnonpn 
Rorofnofponofrorfory 

WOOO COCOODOD OOO NNN NNN o 
SOOONAUES WN —CODNOUSWNO0MD 


67 


EC 


12 
TOR = Escape sequence generat 16-36 =1984 00:06:34 AX-11 Blis 
S- Create set attributes seq 1 =300 71387 99:9 244 COBRTL. RC} 
amma (VT100_SGR, FREE_ADDR); 
'¢ 
: If we get here, the appropriate graphic rendition string has 
been moved to the output buffer. Now copy the user's text over. 


FREE_ADDR = CHSMOVE (.IN_LEN, .IN_TEXT, .FREE_ADDR); 


‘+ 

Append in sequence to turn off graphic rendition. 

CHSMOVE (%CHARCOUNT (VT100_OFF), UPLIT (BYTE (VT100_OFF)), .FREE_ADDR); 
14 

Set the output length and exit. 


.OUT_LEN = ..OUT_LEN + .IN_LEN + 6; ! add Length of caller's text & 
! turn on/off graphic rendition 
RETURN (SS$_NORMAL); 


END; ! End of routine COBSSSET_ATTRIBUTES 
00161 .BLKB 3 
34 35 37 31 00164 P.AAP: ‘ASCII \1754\ 
6D 30 58 1B 00168 P.AAQ: <ASCII <27>\COm\ 
ATTRTABL= P.AAP 
00FC 00000 -ENTRY COBSSSET_ATTRIBUTES, Save R2,R3.R4,R5,R6,R7 
56 18 AC 00 00002 MOVL_ OUT_LEN,~R 
14 AC 66 C1 00006 ADDL3 (R63, OUT_BUF, FREE_ADDR 
00 04 AC CF 00008 CASEL TERM’TYPE> #0. #5 
0014 0014 90010 1$: .WORD 3$-15,- 
0014 0014 0018 $-18.- 
$-1$.- 
$-1$.- 
$-1$ 
4D 11 9901¢ BRB $ 
OF 10 aC ? 0 1 2s: BITB FLAGS, #15 
08 BC Cc AC 2 $0 4 38: MOVC3 IN_LEN, @IN_TEXT, (FREE_ADDR) 
66 c at tO 0 A ADDL2 = INCLEN, (R6J 
BRB 
87 5818 F 80 0 4$: nOvu #23323, (FREE_ADDR)+ 
10 AC 0 Fi 0037 5$: BBC 1, FLAGS $s 
? BB AF4 C MOVE AfTTRTABLEIJ, (FREE_ADDR)+ 
? 9 41 MOVB 9, (FREE_ADDR)+ 
6 C 44 ADDL2 ‘ 
Q F 047 68: AOBLEQ #3. 1, 5$ 
6D 8F 90 00048 MOVE #109, °-(FREE_ADDR) 


32 
COBE 


VG 
SCG 


sen 92:1 


re 


Pe Pe Se Se Ge Ge Ge Se Ge Ge Se Se Ge Ge Se Ge Se Se Se Se Ose Be Se Be 


Ww 
ONONOWNNNOW 


DPEDAMMNE & 


3; Routine Size: 


F 12 

SSESCAPE_GEN COBSSESCAPE_GENERATOR = Es t 16-Sep-1984 00:06:34 AX=11 Bliss-32 V4.0-74 P 3 
ropsse Y EOBsseer ATTRIBUTES - Create set sttributes seq 12-3087 38 99:06: 3 COBRTL.SRC COBESCEEN. B92:1 — tse 
57 F NC FREE_ADDR F 

67 08 8 0c Ag 2 J noves TN-LEN, IN TEXT, (FREE_ADDR) ; 2276, 

s rr ae ea Cea 3 

e8 f Ab 55 é§ MOVAB babs “(R6) * ; | 

0 67 7$: MOVL #1, RO : 2288. 

4 0006A RET : 

50 04 00068 8$: CLRL = RO + 2290. 

4 00060 REI : | 


110 bytes, Routine Base: _COBSCODE + 016C 


2291 +1 !<BLF/PAGE> 
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SSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 18-5¢ 1984 00:06:34 AX-11 Bliss-32 V4.0-74 Page 24 
ti COBSSSET ATTRIGUTES ONLY - Create only set attr 1 ~8ep-19 4 99:9 244 YCOBRTL SRe COBESCGEN. 8921 . 33 
; 710 $338 1 ZSBTTL ‘COBSSSET_ATTRIBUTES ONLY = Create only set attributes sequence’ 
3; 7) 1 GLOBAL ROUTINE COBSSSET_ATTRIBUTES_ONLY ( 
; at 94 «WI TERA_TYPE, 
wks 95 1 FLAGS, 
; 716 38 1 PREF IX_BUF 
: 715 97 1 P_PREFIX_LEN, 
: £8 38 1 SOF F 1xX_B0F 
: 71 1 P_SUFFIX_LEN 
; 718 00 1 d= 
; 719 01 1 !4¢ 
; 4 8¢ : : FUNCTIONAL DESCRIPTION: 
yee § Og 7} This routine generates the escape sequences os on and off 
cs 05 1! attributes such as bolding and blinking. These attribute 
; 726 BS 1 ! sequences are placed in two buffers supplied by the caller. 
3 2 Bf } No input text is specified. 
3 g 14 ; : CALLING SEQUENCE: 
3; 729 ieee ret_status.wic.v = COBSSSET_ATTRIBUTES (TERM_TYPE.rl.v, 
2 ¢ 14 #1! P_PREFIX LEN.ml.r, 
Tee 16 1! SOFFIX_BOF.mt.r, 
ee 1663! P_SUFFIX_LEN.mL.r) 
3 39 [ae 
; 736 318 1 ! FORMAL PARAMETERS: 
3 a7 19 1! 
; 738 320 1! TERM_TYPE.rl.v terminal type 
3; 739 321 1! FLAGS. rl.v flags spec tying which attributes to turn on 
; 740 3 ¢ 1! PREF IX_BUF .mt.r addr of output buffer to receive prefix string 
3 741 3 1! P_PREFIX_LEN.ml.r # bytes in already in prefix buffer 
; 76 61! gets updated to include size of prefix 
s 76 > 2a SUFFIX_BUF .mt.r addr of output buffer to receive suffix string 
3 6746 $ 1! P_SUFFIX_LEN.ml.r # bytes in already in suffix buffer 
3 2 $ : : gets updated to include size of suffix 
3 747 329 1 ! IMPLICIT INPUTS: 
; 748 330 1! 
3 «749 ee NONE 
; 750 § 1! 
; 751 1 ! IMPLICIT OUTPUTS: 
3 P3¢ 4 1! 
io > ee NONE 
3 6756 $ 1! 
s 29 1 ! COMPLETION STATUS: 
3 £36 S 9s 
3; 73 9 1! 
; 758 0 1! SIDE EFFECTS: 
3; 759 41 1! 
; 760 $5 1! NONE 
; 761 43 1 !<- 
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SSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 16-Sep-1984 00:06:34 AX-11 Bliss-32 V4.0-74 Pa 5 
sopaee COBSSSET ATTRIGUTES ONLY - Create only sft attr 12-828713 4 99:9 744 YCOBRTL SRE COBESCGEN.852;1 9 183 
; 763 4 BEGIN 
: 7646 5 
; 765 rf] BIND 
3 £68 4 
; 76 +8 PREF IX_LEN = .P_PREFIX_LEN, ' holds length of prefix buffer 
; re8 rs SUFFIX_LEN = .P_SUFFIX~LEN; ! holds length of suffix buffer 
: 758 1 LOCAL 
: 1) : BUFFER_PTR 
3 ae 4 “ 
3; 774 2? MACRO 
; 775 $ 
8 76 2 VT100_OFF = ZSTRING (ZCHAR (ESC), ZCHAR (LB), ‘Om')2; 
3 ore 33 BUFFER_PTR = .PREFIX_BUF + .PREFIX_LEN; ! init to first free byte of prefix 
3 oe o) CASE TERN TYPE FROM UNKNOWN TO HARDCOPY OF 
s 7 j CHARDCOPY, UNKNOWN, VTOS, VT52, VTFOREIGNI: 
; 78 4 BEGIN 
3; 784 65 + 
3 re? 66 Renditions not supported on these devices. Just return. 
; rae 68 RETURN SS$_NORMAL 
; 788 14 END; 
3; 789 0 
3; 790 71 CINRANGE, OUTRANGE): 
: 791 i RETURN 0; ' error 
; 79 7 
; 79 74 CvT100): 
3: 794 75 N 
3; 795 6 IF .FLAGS <0,4> EQL 0 
; 796 7 N 
3; 797 38 RETURN (SS$_NORMAL); ! no attributes requested 
3; 798 79 
3; 799 80 '+ 
:; 800 81 ' For each attribute bit set in flags. copy 
; 801 ag ' the spocepriete ASCII graphic rendition byte 
; 80 3 ! followed ¥ a ‘;* into the output buffer. 
3 rity rf } Note use of autoincrementing. 
3 bos 384 
: 06 CHSWCHAR_A (ESC, BUFFER_PTR); 
: ; CHSWCHAR_A (LB, BUFFER PTR); 
; 808 PREFIX_LEN = .PREFIX_LEN + 2; ! Start with 2 chars: <ESC> "'C" 
; 44 eS — 1’ FROM 0 T0 3 
: " % 4 BEGIN ! build prefix attribute string 
: 18 Me ? ATTRTABL = UPLIT (BYTE (°1754")) : VECTOR (4, BYTE); 
: 815 9% 4 IF .FLAGS <.J, 1> 
3 16 97 4 THEN 
: 81 98 BEGIN 
3 18 99 CHSWCHAR_A (.ATTRTABLC.1), BUFFER_PTR); 
3; «6819 400 CHSWCHAR_A (ZC';', BUFFER_PTR); 


—————, 


SCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 15-56 Sep-1 Ax-11 is 
ropes COBSSSET_ATTRIBUTES_ONLY - Create only sit attr 1 =30 71382 99: 96:34 COBRTL SRE cose ltée On B82; 31 Page 488 
; rt . 5 one ALLER = .PREFIX_LEN + 2; ! keep updating Length 
3 § ri ; END; ! build prefix attribute string 
; 4 405 '¢ 
3 5 4 i ys +4 felt _ A > loop we have deposited 
3 $ 4 i tra f the buffer. Been up 
: rt i FREE “ADDR and gh VI 0O0_SGR on top of it 
: 829 410 BUFFER_PTR = .BUFFER_P 
; H Q i] CHSWCHAR_A (VT100_SGR, "Burrek PTR); 
; H é a1 END; 
Hy : 414 TES; 
4 5 tte t+ 
; B36 <i? - Append in sequence to turn off graphic rendition. 
; B38 419 2_ 
; 839 420 BUFFER_PTR = .SUFFIX_BUF + .SUFFIX_LEN; ! init to first free byte in 
: ary : 1 i suffix buffer. 
3 B42 4 § CHSMOVE (ZCHARCOUNT (VT100_OFF), UPLIT (BYTE (VT100_OFF)), .BUFFER_PTR); 
5 844 425 2 '4 
: Bc 4 ; j_ Set the output length and exit. 
3 848 4¢9 ¢ SUFFIXLEN = .SUFFIX_LEN + ZCHARCOUNT(VT100_ OFF); 
; 850 431 RETURN SS$_NORMAL 
: 852 5438 END; ! End of routine COBSS$SET_ATTRIBUTES_ONLY 
001DA -BLKB 2 
34 35 37 31 OO1DC P.AAR: .ASCII \1754\ 3 
6D 30 5B 1B OO1EO P.AAS: .ASCII <27>\COm\ : 
ATTRTABL= P.AAR 
0004 00000 eENTRY COBSSSET {rire TES_ONLY, S R2 g 93 
52 10 AC DO 00009 HOVL. P_PREFIX wets : 388 
51 0c «AC 62 C1 00006 ADDL3 (R2), PREF Gx. Bur BUFFER_PTR : 2359 
05 00 04 AC CF 000 CASEL TERM TYPE, #0, #5 : 2361 
O000E 0046 0046 B08 Bae) 18: ~ WORD $-15,- 3 
0046 046 001 $-1$,- 3 
$-1$,- 3 
g3- 13. 3 
$-1$,- 3 
5$-1$ 3 
3c. «(11 git BRB 6$ 3 § 72 | 
OF 08 ac 9 45 2s: B1TB ELAGS. #15 3 2576 | 
; 1 3 BEQL 5 3 
81 5818 F BO 00024 MOVW #23323, (BUFFER_PTR)+ : 2387 | 


12 
GORRRESCAPE.CEM COREE SEARS nGRATOR,cyEECPPE, sequence generat 1P-Bep—I9RE OO:O6:t YARCHT BLLSHCAZ, YE OSTA 


; Routine Size: 


; 853 


Pa 7 
9485 
62 co ADDL2 #2, (R2) : ° 
C CLRL OI ; | 
0B 08 ac 3$: BBC I FLAGS $s j 38 | 
C1 AF4 MOVE AfTRTABLEIJ, (BUFFER_PTR)+ F 
1 MOvVB. #59, (BUFFER PTR) 3 2400) 
: C ADDL2 #2, (R2) + 2401 | 
EC F 4$: AOBLEQ #3. I, 3$ : 2390 
1 6D BF 9 4 VB #109, °-(BUFFER_PTR) : 2411 
1 06 0004 INCL. BUFFER PTR : 
51 4 AC 18 BC C1 0004 ADDL3 @P_SUFFIX LEN, SUFFIX_BUF, BUFFER_PTR > 26 q 
18 Bt io c9 ; 53 ee EAT i 5059, 
8 81 D $08 5$: VL =e #1, ROM as + 2631 
04 00059 RET : 
50 D4 O005A 6$: CLRL = RO $ 2433 
04 0005C ET F 
93 bytes, Routine Base: _COBSCODE + O1E4 | 


2434 


1 !<BLF/PAGE> 


12 
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SSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 16-Sep-1984 00:06:34 AX-11 Bliss-32 V4.0-74 p 8 
het - COBSSSET_CURSOR_ABS_R4 - create absolute set cu 1 =3007 1382 99:98:20 COBRTL. RecOBESCGEN 82:1 age 493 
3 5 435 1 ZSBTTL ‘COBSSSET cyeson Aes R4 = Create absolute set cursor sequence’ 
; $ 4 1 GLOBAL ROUTINE COBSSSET“CURSOR_ABS_R4 ( 
; 437 1 TERM_TYPE, 
3 3 4 1 LINE NO, 
; 6 1 COL_NO, 
3 440 1 BUFFER 
; 861 441 1 CUR site 
3 442 1 ) : COBSSESC_R4_LNK = 
: 445 1 !46 
; : rie : FUNCTIONAL DESCRIPTION: 
; 446 1! This routine generates the escape sequence for a set cursor 
3 ri : : position and appends the string to a given output buffer. 
3 676 cs ! : CALLING SEQUENCE: 
; 871 451 1! ret_status.wlc.v = COBSSSET_CURSOR_ABS_R4 (TERM_TYPE.rl.v, LINE_NO.rl.v, 
; be 43¢ 1} OL_NO.fl.v, BUFFER.mt.r, 
; 87 4535 1! CUR_SIZE.ml.r) 
3; 874 454 1! 
3 «6679 455 1 ! FORMAL PARAMETERS: 
3 a78 #28 1! 
; 87 457 1! TERM_TYPE.rl.v terminal type 
; 878 458 1! LINE_NO.rl.v Line number 
; 879 459 1! COL_AO.rl.v column number 
; 880 460 1! BUFFER. mt.r addr of buffer 
; 881 461 1! this buffer should be at least 
3 HY re «| 1! bytes 
; 88 re ’ CUR_SIZE.ml.r # bytes currently in buffer 
3 HH oe? : IMPLICIT INPUTS: 
; 887 467 1! NONE 
3; 8 468 1! 
3; 889 469 1 ! IMPLICIT OUTPUTS: 
; 890 470 1! 
3; 891 471 1! NONE 
; 89 472 1! 
; 89 475 1 ! COMPLETION STATUS: 
; 894 474 1! 
; 895 475 1! 
; S98 476 1! SIDE EFFECTS: 
; 89 477 1! 
3 £38 478 1! NONE 
3 479 1 !e- 
; 900 480 1 
: 901 481 BEGIN 
; 90 4 ¢ 
; 90 4 LOCAL 
; 904 4 VTIOOCTL : VECTOR C1, 8) INITIAL ( 
3 905 485 DSCS$K_CLASS |S “24 + DSCSK_DTYPE T “16 + 10, 
3 206 4 UPLIT™( BYTE (ESC, LB, *!O0L;'UL*, vT100_SC ))), 
; 90 4 ! dsc for cvt to vt100 sequence 
; 908 4 3 ! FAO control gteine 
; 909 4 FREE_ADDR : REF VECTOR C,BYTE); ! addr of Ist free byte 
iat OS 


12 
CORSSESCAPE GEN COBSSESCAPE GENERATOR = Escape sequence generat 18-Sep-1984 99:06: 34 AX-11 Oi lege ze Fh ames 
COBSSSET_CURSOR_ABS_R4 = Create absolute set cu 14-Sep-1984 12:10:44 COBRTL.SRCJCOBESCGEN.B52;1 


: 318 $3 FREE_ADDR = .BUFFER + ..CUR_SIZE; ! addr of next free byte 

; gis 494 CASE = TERM_TYPE FROM UNKNOWN TO HARDCOPY OF 

; 9! 4 

5 339 49 CHARDCOPY, UNKNOWN, VTFOREIGNI: 

; 313 re 3 ! do nothing 

: 920 00 CvT0S): 

; 921 01 BEGIN 

; 9 ; 4 -CUR_SIZE = ..CUR Size + 3; ! update current size of buffer 
; 9 FREE_ADDR 9 = vVT05_SC; ! put set cursor sequence into buffer 
3 924 FREE-ADDR = CB +”. LINE_NO; 

; 925 505 FREE_ADDR (2) = CB + .COL_RO; 

: O59 307 at: 

; 928 308 CvT52): 

; F 50 BEGIN 

3 9 510 -CUR_SIZE = ..CUR_SIZE + 4; ! update current size of buffer 
; 931 511 FREE_ADDR (0) = ESC; ! put set cursor sequence into buffer 
; 9 é 31 FREE-ADDR [1] = VT52_SC; 

; 9 51 FREE-ADDR : = CB +”. LINE_NO; 

5 ote 514 FREE_ADD = (CB + .COL_AO; 

: 5 31? END; 

: i wvtt00}:, 

; 339 215 LOCAL 

: 940 520 STATUS, 

: 941 521 CVT_ARGS : VECTOR ait 

; 4 5 ¢ FAO_BUFFER : BLOCK , BYTE), 

; 963 3 ; FAOLEN : WORD; 

: 9% 525 CVT_ARGS [0] = .LINE NO: 

; 9% 5 § CVT_ARGS C1) = .COL_RO; 

3; 9% 5 FAOBUFFER COSC$B_DTYPE] = DSC$K_DTYPE_T; 

; 948 528 FAO_BUFFER LDSCSB_CLASSJ = DSCSK_CLASS_S; 

; 949 529 FAO_BUFFER CDOSCSW_LENGTH] = 20; ! arbitrary - sb large enough 
; 990 3 0 FAO_BUFFER CDSCSA-POINTER) = .FREE_ADDR; 

: 95 5 ‘+ 

3 938 338 : Convert to ASCII characters and move to buffer. 

; 955 P 3 5 STATUS = SFAOL (CTRSTR = VTIOOCTL, OUTLEN = FAO_LEN, 

: 328 $ TBUF = FAO BUFFER, PRMLST = CVT_ARGS); 

; 95 5 If NOT .STATUS TREN RETURN (STATUS); 

; 958 538 -CUR_SIZE = ..CUR_SIZE + .FAO_LEN; ! add Length of appended string 
: 360 320 END; 

; 961 41 . 

: 306 See CINRANGE ,OUTRANGE J: 

; 9% 54 RETURN 0; ! should never get here 

3; 964 544 

3; 965 $42 TES; 

: 967 329 RETURN 1; 

3; 968 548 


"12 
SSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 16-Sep-1984 00:06:34 AX-11 Bliss-32 V4.0-74 P 
1985 woe COBSSSET CURSOR ABS AG = Cremte shee ite eee ee lectep none SOi8:Es | PAMSAT Clissc3z ve-On7ee. age 470 


; 969 2549 1 END; ! End of routine COBSSSET_CURSOR_ABS_R4 


BLK 
58 18 8 44 P.AAT: .BYTE 27, 91 : 
. . Lz !UL é 
4c 55 21 3B 4 0246 ASCII \!0ts!UL\ 
0240 “BYTE 10 : | 
.EXTRN SYSSFAOL 
SE 1C 2 00000 coBssseET CURSOR. _R4:: 
SUBL # SP > 2436) 
14 AE O10EQO0A 8F DO 00003 MOVL #17694730, VTI00CTL + 2681 
18 «OA E8 AF 9E 000 ROVAR P.AAT, VTIO0CTL#4 : 
64 001 ADDL2  (CUR_SIZE), FREE_ADOR : 3492 
95 39 CF 0001 CASEL TERM TYPE, #0, #5 + 2494 
0034 0020 Q00E 00 0017 1$: . WORD -1$,- : 
06 0060 OO1F $-18.- : | 
- s” é | 
4$-1$.- : 
as-i3" pee 
57 11 000 3 BRB 6$ ; 543, 
64 03 60 00025 2$: ADDL2 #3, (CUR SIZE) ; 308 
3 OE 90 00028 MOVE #14, (FREE ADDR) > 2503 | 
01 Ad 1 1F + 0028 ADDB3 ail. LINE_NO, 1(FREE_ADDR) : 2504 
02 a3 52 1F 81 000 ADDBS #31, COL_NO, 2(FREE_ADDR) : 3505. 
40 11 00035 RB 5§ + 2694 
64 04 cO 900 7 3$ ADDL2 #4, (CUR_SIZE) + 2510 
63 5918 8F BO 0003A Vid. #22811, TFREE_ADDR) : 2511 
02 =A 51 1F 81 0003F ADDB3 #31, LINE_NO,~2(FREE_ADDR) : 2513 
03 A 52 z oI ies ADDB gat. COL_NO, 3(FREE_ADDR) : 2h4 | 
Py | 
oc A 1 7D 00048 4$: mova LINE CVT_ARGS + 2525 
04 A 01060014 BF DO OO0eE MOVL #17694 760. FRO_BUFFER 3 2529 
= 50 c Ae OF boa PUSHAR CVTCRRGS ) AOmoue FERSS : $330 
85 AE 9F 0055 PUSHAB FAO"BUFFER : 
; AE 9F 0006 PUSHAB FA LEN ; 
000000006 00 Of + bos? CALLS Hy 1 : 
0D 0 a OG BLBC STATUS, : 2537, 
50 F 9 VZWL FAO_LEN, R : 25 
64 c 74 ADDL2 RO,” (CUR_SIZE) : 
0 1 p 907 5$: RO ; 2547 
D4 go7¢ 68: CLRL_ RO > 2549. 
SE iC £9 O7E 7$: ADDL2 #28, SP : | 
0081 RSB F | 


3; Routine Size: 130 bytes, Routine Base: _COBSCODE + 024E 


970 2550 1 !<BLF/PAGE> 
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SESCAPE GENERATOR = Escape sequence generat 16-Sep-1 :06:34 AX-11 Bliss-32 V4.0- 
08 $5e7 CURSOR REL Create relat ve cursor pos 13-308-1984 99:98:24 COBRTL.SROI 
ZSBTTL ‘COBSSSET_CURSOR_REL Create relative cursor position sequence’ 
GLOBAL ROUTINE so ogcghn a ; 


~ 
wn 


woooooovoo 


$2 Ses 
CS TS nt Se 


PPE SER RESEE REET 


SESISISSSESERS OPER SSSA E NTS S SES OTROS SOOT 


1 ah Ab Ab Ab Ab Ab Ab Ab Ab Ah Ab db hb Ab db bb bbb hb Ab bh Ah ah db sh sh ah al ah ah dh aha 


wr 


wm 


a ad de a ae a a at a td 4 we a a ss sd =) 4 45 2 Ls 
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RONNININUNUNUTUND 2 2 SSS 


ONO VEWN "OO OOVNOUS WhO 


oOoononm 


COBSSSETS CURSOR REL ( 
LINE NO, 


L NO, 
LINE PLUS, 
COL PLUS, 


)= 
‘ee 


i FUNCTIONAL DESCRIPTION: 


This routine penqretes the escape sequence to position 
the cursor relative to the specified Line and column, or 
relative to the current position if none is specified. 
The set cursor sequence is appended to the output string. 


Notice that the ANSI sequences can become quite Large. 
For instance, it is possible that 50 up arrows ( bytes each) 
will be only a part of the resuiting seqyence. It is 
recommended that the output buffer be bytes long. 


CALLING SEQUENCE: 


ret_status.wic.v = COBSSSET_CURSOR_REL (TERM_TYPE.rl.v, LINE_NO.rl.v, 
LLNO.rl.v, LINE_PLUS7rl.v, 


CO 
sob APL US Ft ev BUFFER. mt.r, 


R_SIZE.ml.r 

FORMAL PARAMETERS: 

TERM_TYPE.rl.v terminal type 

LIN Line number 

COL_AO.ri.v column number 

LINE _PLUS.rl.v offset from Line number 

COL_PLUS.rl.v offset from column number 

BUFFER. mt.r addr of buffer 

CUR_SIZE.ml.r # bytes currently in buffer 
IMPLICIT INPUTS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 


COMPLETION STATUS: 


SIDE EFFECTS: 
‘ NONE 


© 
me | 
7 
— 


i The following table shows the cursor positioning used for every 


COBESCGEN 


a - + 
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COBSSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 16-Sep-1984 00:06:34 AX-11 Bliss-32 V4.0-74 Page 32. 
eet rf COBSSSET_CURSOR_REL Create reletive curesr pos 12-Sep-19 4 99:9 244 COBRTL SRE ICOBESCGEN. B92: 1 ° a3, 
: 1029 $08 1! combination of the LINE and COLUMN phrases on both ANSI devices 
; 1050 609 1! and VT100s. The arrows on the V1T52 can a be moved one pos tion at 
3; 1031 219 1! a time. This may be slower, but at least the results will be the 
; + ¢ 2 ! same as far as cursor positioning goes on both types of terminals. 
: + : ei8 } ; "'y'' = down arrow 
19 7 ge i "a" = up arrow | 
: Ht 4 tH } ! LINE a ! LINE PLUS b ! COLUMN c } CCLUMN PLUS d ! Cursor Pos. Used 
> 1040 19 1 ; 
5 1928 3 0 1! N H N : N H N : Current Rules 
5 ok 621 1! N H N H N ' Y | d ‘'=>"" 
3 104 ose 1! N H N H Y ' N | <CR> ; col =>" 
3 1044 6 1! N H N H Y H Y | <CR> 3; (c-1)4d “=>” ' 
3 1045 624 1! N H Y ' N H N | b <LF> 
: 1046 2625 1! N ' Y ' N H Y | b <LF> 3; d ‘'=>"' 
3 1047 $e 61! N : Y ' Y H N | Bb <LF> ; <CR> ; col ‘=>" 
3; 1048 627 1! N ' Y H Y ' Y | b <LFD> ; <CR> ; (c-1)4d ‘'=>"' 
; 1049 628 1! ae N Nf N i Home ; a1 ‘'y'' 
: 1050 zee 1! Y : N } N H y (ao 2 oe es ee 
; 1051 630 1! Y ' N ' Y ' N : Direct a,c 
; 1936 2631 1! Y ' N ' Y Y | Direct a,c+d ; 
; 105 soae ' Y ' Y H N ' N 1 Home ; a-1 “'v'' > b TLE’ 
3 Wed $o87 : Y 4 N ¥ 1 24 g bt v's b <LFD | 
> 1056 at 1 i oe y oe N Direct a,c ; b <LF> | 
3; 1057 2636 1! Y ; Y 1 Y H Y | Direct a,c+d ; b <LF> | 
3; 1058 2637 1! i ' } ! 
3 1928 $038 : eeececeoooeesesoeces eececeeesoesooeeeeeeeesoeeseeeseeeeeseesceseeeso 
; 1061 2640 1! note: <lf> for all LINE PLUS to get serest ine ‘ 
; 1206 2641 1! note: 24 up arrows used instead of home - this maintains the current 
; 1bei $046 ' } column position 


—— 
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ett 


im lo fw foe lolelolololololelololololololololololo) 
C§OOOOON NINN NAN N NO 
MEN O OONAUS WN —OODONOS 
MIPIM TUIITININININININININININ OO 
o 
ao 
S 


oO 


VMPWM—O0aOnN 
SAAAAO 


oo 
DNS 
SBVSSSSSSSSSSSSSSSSSSSTSTSTTZ 


VEO ooo oo ooo ooo OOOO OOOO OOOO Oooo 


3 


MEWN —O OONOUSWN—"OO0Onou 
ae 
ee 


DPA AAD DD AD AA AA AAA AA AAA AAA OO 
D4 CoCo CoCo 0908 SI NINN NNN 


a kk at et at dt 2 os I 
MEwn— 
ne 
ee 


ak tk a a a at aa ak a sk at at = = 2 2s = SS = SS 2 SY SS YY SS YS os a st 
MO OO~yOUfSwhr—00® 


POPIPOPIPOPONONONONIPONIPOPPOPONONONONIPOPOPUNONO NUNN POPU POPURONONONONOPO POPU PUnonononononornorororonofrononony 
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CURSOR_REL Create relative cursor post 132800= 1386 9939 244 COBRTL SRC ICOBESCG 


BEGIN 


+ 

! The following macro will put the VT100 sequence for 
! multiple arrow movement into the buffer and update 
' the Pa and pointer. Sequences are of the form 
' ESC C num arrow. 


ACRO 
SAPPEND_VT100_SEQ (NUM, CTR_ARROW) = 
BEGIN 


CVT_ARG, 
FAO-BUF : BLOCK (8, BYTE), 
LEN : WO 


FAO : ‘ 
STATUS; 
1F NUM NEQ 0 
THEN 
IN 
CVT_ARG = NUM; 
“BUF CDSC$B_DTYPE] = DSCSK_DTYPE_T; 
FAO-BUF CDSC$B-CLASSJ = DSCSK-CLASS_S; 
FAO_BUF CDSCSW_LENGTH) = 15; ! arbitrary - sb big enough 
FAO[BUF EDSCSALPOINTER] = .FREE_ADDR; 
STATUS = SFAOL (CTRSTR = CTR_ARROW, OUTLEN FAO_LEN, 
OUTBUF = FAO_BUF, PRMLST = CVT_ARG); 
IF NOT .STATUS THEN RETURN .STATUS; 
.CUR_SIZE = ..CUR_SIZE + .FAO_LEN; 
FREE ADDR = .FREEADDR + .FAO"LEN: 


END 
! end macro S$append_vt100_seq 


14 
! This macro puts NUM arrows into the buffer. 
The next free byte and buffer size are updated. 


MACRO 
75 tua aac (NUM, DIRECTION) = 
INCR COUNTER FROM 1 TO NUM DO 
BEGIN 


FREE_ADDR = CHSMOVE (2, UPLIT (BYTE (ESC, DIRECTION)), .FREE_ADDR); 
Pe »-CUR_SIZE + 2; 


END; 


! end of macro append_n_arrows 


MACRO 
SAPPEND_VT100_HOME = 
FREE_ADDR = CHSMOVE (3, UPLIT (BYTE( ESC, LB, f)), 
.FREE_ADDR) ; 
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ve cursor pos 


CAPE_GENERATOR = Escape $¢ 
REL Create relat 


SES 
SSET_CURSOR 


SSE 
COBS$S 


GEN COB 


OBSEESCAPE 


C 
1 


w 
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°o 
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~ ee 
<= v 
a a 
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= te 
‘ a] 
ws 7 7. me 
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a ee 
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. ww 
~o O ~o . 
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~ ~ 
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—-— = — = ee ~ 
oe ne to bo 
Vv wr we We a 
” a- ans an ~ 
us >< >oOo ww @o 
~ load - - | 
a: @©&: @&e Cc 
w > -~ & a 
es eS) 
> AD RD IRD - 
@ ~~ Oe Je Eve 
~ *= Me Cae We 
rio -2a FO 
— we ep ae a 
_ + @O-- + OZ+ OD 
*. —_J +e =e az a = 
~~ am Qo-w wT w 
bm ) “zu =e oN oN 
aa + wee Vs VO WwW 
. «<moc<cw «ww 
ud Nw erm w we w 
~ ~~ OmaMw~ ~rMw~ +. 
= oe _ '(-— 6 & 6 wn 
” so ww VY Muswnw Yu wo 
‘ > t WK A— OK Awe N 
< w Oc mwa >adt>odt> 
] = zo +j@MO4I@O- 4 " 
vw AU we Qow VY VU Uw 
° xz xe wonrewtw it w 
° we Se ee wt > ee ~~ 
~N VARA SA He — 
“ wm “uu "mv Vou ” 
- >uva.-na wa *e t 
w > aw = aD a2anm ww ” 
~N ‘am a =f bee @ = 
-_ a aon a _ C=) > Ww i. 4 
” = «wm <j w a <u a 
‘ wz tt -— a - _— x< 
<= Awd -« wo 2 = “2x 4 
2a aAowroa w 6 zs o 30 ws 
va qwaevuw ca o -_ ao=- <i 
ow O*Muw ow au> (=) [+ 4 "oa aw 
< <= a w 
Vv Lv = -_ 
<= oO eal oe 
= =! @ a! 
** >. 
re ae 
Sea a aaa av iaviat aviaviatiatiaviatiaviaviaviaviatiatiaviaviaviaviaviatiat) 
MATADOR OA OK MIM TIN OR. DOO UM TINOL- DOKOO— 


COCK C CCC HOR HM MMM MK NINININICINININUICUCUM ES 
eed ee el ed nee Deed eel Jas tee Dae Sat Det Dae Dae Del Saal eel el tae Dae Dae Da ed td de ed ed ed bd 
bea a aaa aaa ava tiat avliaviatiaviaviaviatiaviaviaviavistiaviaviatiaviatiaviat) 


PATNOPR DAO — UM TN OR- OPO UM TNOR. ORO CUM 
NOSSO IN SF SF ST TTT TTT 
fe el el el el el el el ee el el ce el el el el el el el el el el oe oe el ee oe el ee 
ce cee eel cel oe cel oe oe ce ae cel cel el ool ee el oe ce eel el cl ee el ee ee 


FS ee ee sere ree ee *S eee ee ee e858 SS FH FS FH FH FO Fe se ee te ee ee rere 
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Cone ET TCAPE GEN COBSSESCAPE GENERATOR = Escape sequence generat 18-Sep-19 4 99:0 734 AX-11 Oh fegcag V4.0-74 Page 35 
1-003 COBSSSET_CURSOR_REL Create relative cursor posi 14-Sep-1984 12:10:44 COBRTL.SRCJCOBESCGEN.B52;1 (14) 
; 1155 7 § IF .TERM_TYPE NEQ VT100 AND 
3 31 $ 7 . TERM TYPE oy VT 
3 11 734 THEN RETORN (SS$_NORMAL); ! don't do anything for other 
3 1} . 4 5 ! terminal types 
3 1169 g ? FREE_ADDR = .BUFFER + ..CUR_SIZE; 
3 1198 739 IF .LINE_NO NEQ 0 AND 
3; 116 740 -COL_NO NEQ 0 
> 1164 741 EN ! direct cursor addressing 
; 1165 reg BEGIN 
; 1166 74 COBS$SSET_CURSOR_ABS_R4 (.TERM_TYPE, .LINE_NO, 
3 116 744 -COL_NO # .COL_PLUS,”~ .BUFFER, 
; 1168 745 -CUR SIZE); 
3 1169 746 FREE_ADDR = .BUFFER + ..COR_SIZE; ! updare addr next free byte 
: 1170 747 END; 
3; 1171 748 
; 1108 749 IF .LINE_NO NEQ 0 AND 
3 117 750 -COL_NO EQL 0 
3 1174 $f2) 
3: 1175 £36 BEGIN 
; 1176 $2 IF .COL_PLUS EQL 0 
3 1177 754 THEN ! insert home sequence 
: 1178 755 4 BEGIN 
3 1179 756 4 IF .TERM_TYPE EQL vT100 
; 1180 757 4 THEN 
; 1181 758 5 SAPPEND_VT100_HOME 
; 1188 2759 & 
3; 118 2760 4 SAPPEND_VT52_HOME; 
: 1184 2761 4 
3; 1185 sfoe 3 ; 
3: 1186 27635 4 BEGIN ! insert a bunch of up arrows 
3: 1187 2764 4&4 MACRO 
3; 1188 2765 4 UP_ARROW = %STRING (2CHAR (ESC), %CHAR (A))%; 
; 1189 2766 4 BIND 
3 113) sfor ? UP_24 = UPLIT (BYTE (REP 24 OF (UP_ARROW))); 
3 1136 2769 4 IF .TERM_TYPE EQL vT100 
3 119 2770 4 TH 
3 1194 771 5 SAPPEND_VT100_SEQ (24, UP_CTL) 
3 1195 ore 4 SE 
3 1196 773 «5 BEGIN 
3 1197 2774 «5 FREE_ADDR = CHSMOVE (48, UP_24, .FREE_ADDR); 
3: 1198 $i? 5 -CUR_SIZE = ..CUR_SIZE + 48; 
3 1199 ore & END; “ 
; 1200 77 END; 
3; 1201 778 '¢ 
; a4 44 Insert Line_no down arrows regardless of col_plus 
3: 1204 781 IF .TERM_TYPE EQL VT100 
: 1205 7 ; TH 
3 : 53 4 ? 4 ‘ SAPPEND_VT100_SEQ (.LINE_NO - 1, DOWN_CTL) 
3 1208 785 SAPPEND_N_ARROWS (.LINE_NO - 1, DOWN); 
: 1209 7 § END; 
: 1210 7 
3 1211 788 IF .LINE_NO EQL 0 AND 


F 13 
COBSSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 16-Sep-1984 00:06:34 AX-11 Bliss-32 V4.0-74 
peti COBSSSET_CURSOR_REL Create relative curser pos 132308- 1386 99:9 244 {COBRTL sre COBESCGEN 89251 
: 121 789 -COL_NO NEQ 0 
; 121 7 Y THEN ! insert a CR & 
; 1214 7 BEGIN ! col_no right arrows 
; 1215 79 E_ADDR (OJ) = CR; 
31 16 79 FREE-ADDR = .FREE_ADDR + 1; 
3 121 794 -CUR_SIZE = ..CUR_SIZE + 1; 
3 : 18 £3? END; 
; 1220 199 IF .LINE_PLUS NEQ 0 
: 1221 798 THEN ! add Line_plus LFs to buffer 
2 | ¢ 799 BEGIN 
3 3 800 FREE_ADDR = CHSFILL (LF, .LINE_PLUS, .FREE_ADDR); 
3 1224 801 -CUR_SIZE = ..CUR_SIZE + .LINE_PLUS; 
. me 
3; 1227 804 IF (.COL_PLUS NEQ 0 OR .COL_NO NEQ 0) AND 
: 1228 805 (.LINE_NO EQL 0 OR .COL_NO EQL 0) ! didn't do direct cursor addr 
3 5 94 B06 THEN insert col_plus right arrows 
; 1230 80 BEGIN 
: 1231 808 LOCAL 
3; 3 3 809 COL; 
: 123 810 COL = .COL_NO = 1; 
3: 1234 seta IF .COL LSS 0 
; tH aig THEN 
| 28) COL = 0; 
; 1237 g814 IF .TERM_TYPE EQL VT100 
; 1259 2818 4 SAPPEND_VT100_SEQ (.COL + .COL_PLUS, RIGHT_CTL) 
; 1563 seis 3 SAPPEND_N_ARROWS (.COL + .COL_PLUS, RIGHT); 
; 1$06 soit 2 END; 
; 1344 2631 3 RETURN (SS$_NORMAL) ; ! everything should be in the buffer 
3; 1246 $835 1 END; ! End of routine COBSS$SET_CURSOR_REL 
58 1B 002D0 P.AAU: .BYTE 27, 91 
4¢ 55 21 ts 4 ASCII \!UL\ 
41 Bnse -BYTE 65 
0 8 -BLKB § 
5B 18 00208 P.AAV: .BYTE 7, 91 
4¢ 55 21 : DA eASCII \SULN 
42 DD -BYTE 66 
8 D BLKB § 
28 1B OO02EO P.AAW: .BYTE 7, 91 
4c 55 21 E eASCII = \!ULN 
43 E -BYTE 67 
0 E8 -BLKB 
66 5B 1B QO2E8 P.AAX: .BYTE 7, 91, 102 
: EB -BLKB 
48 18 EC P.AAY: .BYTE He 72 
8 E -BLKB 
41 18 FO P.AAZ ASCII = <27>\A\ 
41 1B Q02F eASCII § <27>\A\ 
41 1B O02F4 ASCII] <27>\A\ 


CORSET SCAPE CEN 


5B 000000006 
Py.) 9E 


5E 
‘ 0100006 
‘ 0100006 


E 08 
AE 010E0006 
A 10 

04 
03 
02 
56 1¢ 
$7 
5 08 


Se ee ee ee ee ee et et et ee kd 
KR 


= 
Ww 


13 
GENERATOR = Escape sequence goreres 18. -Sep-1 
SOR_REL Create relative cursor posi 1 


i tk tt td 
@ DBDWOWWIWOWWVVIIOIVVIOTWVWVIWVNINIID 


WANNANANAWN NAA ANNAIWIWinononoenefngd 


MPN 2 OOO oon nw 


COooooooooooooooooo 


COOoooooooo 


OFFC 00000 
43 36 00009 


00000 
B30 


—9o 9-90 909007COwW9 90 9 O90 OU OO 

WASWAFO IO OWN Omomomornm 
OOoooooooooo 

PPPS 

MOPOO LOVE UwUSO> SSRA& 


38 


4-Sep-1 


a 1:98:06 


° 
> 
wn 
o 
— 
os 


oo eee & ee & 
@Owowr>r>r>rrrrrrrrrrrr rr PPP 


< <QNQNNNNNNKNnNnononnnuwnonnwo 

SK AMAQAQAAOAOAAAIAAIAAAAIAIOAOAN 
TOD eat bt ee be bs ne ee ee Rd se ee Be 
ag ee Be at ne Bg Bn es ee bt be Bs be ne Be 


MINNA AAA AA AAAAAAAAAAAAAAA 
~ ~ 
v 
a 
& 
a 


rt =f unson REL, Save R2,R3,R4,R5,R6,- 


RB.R =R10,R1T 
Rit” 
hots 
f ‘ P 
#17694726, UP CTL 


evésr 


P. AAV CTL 
Pi76967 260. RIGHT CTL 
P.AAW, RIGHT CTL¥4 
TERM fyYPe, RO 

R9, #3 


R9, #2 
1 


23$ 

CUR_S 

eg BuFEER, FREE_ADDR 
R 
; 
COL_NO 
$ 


AX-11 Bliss-32 V4.0-7 
COBRTLS RC JCOBESCGEN. : 2;1 


Sete Se Se Se Ge Ge Ge Ge Se Se Se Ge Ge Ge Se Be Se Ge Fe Ge Ge 


Page 37 
. (14). 


2645 | 


2732 
2733 


2737 
2739 


2740 


3 
ep-1984 


SE 


COBSSESCAPE_GEN COBSSESCAPE_ GENERATOR = Escape sequence genera :06:34 AX-11 Bliss-32 V4.0-74 P 
th COBSSSET_CURSOR_REL Create relat ve cureee post 4 90:08:34 YCOBRTL SRE COBESCGEN.852;1 age 438 
Oc ac 146 ac C1 ADDL3 COL_PLUS, COL_NO, R2 3 2744 
‘ 56 D MOVL + 2743 
18 AC D A MOVE BUFFER, R3 : 
1 3 D MOVL 7, R1 : 
0 9 p MOVL R99. R : 
FEBI BSBW_  COBSSSET_CURSOR_ABS_R4 : 
18 at : 0} ADDL3 (R6), BUFFER, FREE_ADDR + 2746 
0 58 BLBS =e «RB, &$ + 2749 
0089 31 7F BRW 148 : 
0c at D5 000 é TSTL OL_NO + 2750 
FB 12 000 BNEG : | 
14 =A p 0 7 TSTL  COL_PLUS t 2753 
Dé 0008¢ ~/ it : 2756 
03 D1 OO8E CMPL RS, as ; 
10 12 0009 BNEG 5$ ; 
58 D 0095 INCL 8 : 
RE 18 00 18 AA FO 0009 INSV. P.AAX, #0, #24, (FREE_ADDR)+ + 2757 
55 02 ¢O 00098 ADDL a. FREE_ADDR : 
b6 03 ¢0 OO0sE ADDL2 #3. (R6) : 
4D 11 OOOA1 BRB : 275 
85 1¢ AA 80 OOAS 5$: MOVW P.AAY, (FREE_ADDR)+ : 275 
66 02 CO 000A ADDL2 #2, (R6) 3 
44 11 OOOAA BRB 8$ > 275 
8 D4 OOOAC 6S: CLRL—sRB > 276 
03 9 D1 OOOAE CMPL) «=O, «#3 : 
2 12 00081 BNEQ 7$ : 
38 06 90085 INCL Rs ; 
6E 18 DO 00085 MOVL #24. CVT_ARG : 2771 
18 AE O10E000F 8F DO 00088 MOVL  #17694735, FAO_BUF : 
1C AE 55 00 000C0 MOVL § FREE_ADDR, FAO-BUF +4 ; 
SE OD 0004 PUSHL SP : 
1¢ AE OF 00066 PUSHAB FAO_BUF : 
g¢ AE 9F 990¢9 PUSHAB FAO-LEN ; 
C AE 9F 000CC PUSHAB  UP_CTL : 
68 04 FB b00cF CALLS #47 SYSSFAOL F 
4 50 E9 0002 LBC = STATUS, 9$ : 
50 06 A ¢ 000 MOVZ2WL FAO_LEN, RO ; 
4 5 ¢ 0009 ADDL2 RO, (R65 : 
50 04 AE 3¢ 0000C MOVZWL FAO_LEN, RO ; 
55 50 CO O00E ADDL2 RO, FREE_ADDR : 
11 000E BRB : 2769 | 
65 20 AA 28 O00E5S 78: MOVC3 #48, UP_24, (FREE_ADDR) : 2774. 
55 D QOEA MOVL. 3, FREE_ADDR : | 
$$ GS Boee gg, AeL2 RE. ERGY : ort} 
01 § D1 bors CMPL Rg. #1 ; 378s 
43 13 OF6 BEQL ; 
08 AE FF A? YE OOOF MOV 1 (R7) gv ARG 3 
18 AE 010E000F af DO O00F MOVL  #17694735, FAO_B ; 
“1 OAL 5 p 1 VL FREE_ADDR. FAO"BUF +4 : 
08 AE 9F 001 PUSHAB CVT_ARG ; 
1C AE OF 0010C SHAB FAO~BUF ; 
14 AE of 10F PUSHAB FAO7LEN : 
34 AE 9F 001 SHAB DOWN CT : 
68 4 Fe 11 CALLS #4, SYSSFAOL ; 
01 0 £8 00118 9$ BLBS § STATUS, 10$ F 


13 
OBSSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence genera lb-ge 1984 00:06:34 AX-11 Bliss-32 V4.0-74 Pa 9 
1608 COBSSSET_CURSOR_REL Create relat curser pos! 1 7300-1 38e 19:98:40 COBRTL.SRC COBESCGEN B92: sad ty 
94 118 RET : 
50 0c AF f 11C 10$:  MOVZWL FAO_LEN, RO : 
5 § 1 ADDL 2 RO, (R65 : 
0c ar 1 MOVZWL FAO_LEN, RO : 
FO 001 ADDL2 RO, FREE_ADOR : 
F 12A BRB + 2781 
29 p4 C 11$: CLRL NTER + 2785 
85 50 AA B80 00130 128:  MOVW P.ABA, (FREE_ADDR)+ : 
66 é CO 001 ADDL2 e, (R6) : | 
FS 5 F2 00137 13$:  AOBLSS R7. COUNTER, 12$ : 
: D4 00138 14$: CLRL R : 2788 
DS 00130 TSTL 3 
o¢ 12 0013F BNEQ 15$ : 
D6 00141 INCL RB : | 
0c at D O143 TSTL  COL_NO + 2789 
1 : 146 BEQL «6=s«15$ : 
&S D 90 0014 MOVE #13, (FREE_ADDR)+ t 2792. 
66 D 00148 INCL (R65 + 2794 
57 10 AC 00 0014D 15$:  MOVL = LINE_PLUS, R7 : 2797) 
OC 13 00151 BEQL 16$ : | 
57 OA 6E 09 2¢ 00195 MOVCS #0, (SP), #10, R7, (FREE_ADDR) : 2800 
55 33 DO 00159 MOVL. 3, FREE_ADDR : 
hn 57 cO 0015¢ ADDL2 7. (R6) ; 2801 
14 AC DS OO15F 16$:  TSTL  COL_PLUS + 2804 | 
05 1 90162 BNEQ 178 3 | 
OC AC 05 00164 TSTL SOL _NO : 
SF 13 00167 BEQL 4 : 
05 58 EB 00169 17$: BLBS RB, 18$ : 2805 
0c AC DS 0016C¢ TSTL  COL_NO : 
e le 0016F BNEG  23$ : 
50 0c ac 1 ¢3 00171 18$:  SUBL3 #1, COL_NO. COL : 2810 
; 18 00176 BGEG ~6=s«19 > 2811 
D4 0017 CLRL. COL + 2813 
50 14 AC CO 0017A 19%:  ADDL2 COL_PLUS, RO : 2816 
03 9 D1 OO17E CMPL = RY, # > 2814 
6 12 00181 BNEG 208 : 
0 D5 00183 TSTL OR > 2816 
41 1 0185 BEQL $ 3 
10 AE 50 00 0018 MOVL RO cyt ARG F 
18 AE 010E000F i D 0188 MOVL  #17694735, FAO_BUF ; 
1 AE 5 pO 0019 MOVL _—- FREE_ADDR. FAO~BUF +4 ; 
10 AE OF 0197 PUSHAB CVT_ARG ; 
1C AE 9F OO19A PUSHAB FAO7BUF ; 
1€ AE 9F 0019D PUSHAB LE : 
2C «AE OOF 140 PUSHAB RIGAT CT : 
68 94 FB 1A CALLS #4, SYSSFAOL ; 
¢2 0 5 1g LBC STATUS, 24$ ; 
14 «OA ¢ 1A MOVZWL -LEN : 
66 5 c 1A ADDL2 RO,” (R65 ; 
50 4 «A ¢ 018 MOVZWL FAO_LEN, RO : 
55 50 CO 001B4 ADDL2 RO, FREE_ADDR : 
F 11 00187 BRB > 2814 
1 04 00189 20$: CLRL COUNTER : 2818 
07 «(11 0188 BRB : 
85 54 AA BO 0O1BD 21$:  MOVW  P.ABB, (FREE_ADDR)+ : 


13 
SSESCAPE_GEN COBSSESCAPE G Bre ATOR = Escape sequence genera 1b-S2 1 AX-11 Bliss-32 V4.0-7 Pa 40. 
ei a fp SSSET_CURSOR_REL Create relat ve curser pos 12-805-1 98e 99: 9:2 COBRTL.SRCJCOBESCGEN. 3 2:1 eat rss 


sR ag RR BE tim a 8 


; Routine Size: 460 bytes, Routine Base: _COBSCODE + 0326 


; 1247 2824 1 !<BLF/PAGE> 


BS } 

3 : 1 : 

: 1588 : 

: 12546 1 

3: 1255 1 

3: 1256 1 

: 1588 : 

3 3 35 ,! 

3 ; rs : FUNCTIONAL DESCRIPTION: 

sy o¢ 838 1! This routine uses the specified file name to determine device 

: 126 839 1! characteristics and assign a terminal type code which is understood 
> 1264 840 1! by other COB$S$ routines. COBS$ routines use the terminal type to 
3; 1265 841 1! determine the correct escape sequence for a given function (ex. set 
3 3 $4 ote 1! cursor). 

: 126 845 1! 

>; 1268 2844 1 ! CALLING SEQUENCE: 

: 136° see? 1! 

3; 1270 3e6 1! ret_status.wlc.v = COBSSSETUP_TERM_TYPE (FILE_NAME.rt.r, 

3; 1271 847 1! NAME_LEN.rl.v, 

; 1s7¢ 848 1! TERM_TYPE.wl.r 

3 127 849 1! ,SEC_DEV_CHAR.wlu.rJ 
3 1274 850 1! »DEVICE_TYPE.wbu.rJ 

3: 1275 851 1! eRES_NAME_LEN.wwu.r 

3 1276 852 1 RES-NAME-ADDR.wt.rd) 
3; 1277 8535 1! 

; 1s?8 854 1 ! FORMAL PARAMETERS: 

3; 1279 855 1! 

3; 1280 856 1! FILE_NAME.rt.r addr of file name text 

3 1281 seen 1: NAME _LEN.rl.v Length of file name text f 
3 ieee 858 1! TERM_TYPE.wl.r terminal type code, one of the following: 
3; 128 859 1! unknown 

3; 1284 860 1! vt0s 

: 1285 861 1! vt52 

3; 1286 B66 y: vt100 

3: 1287 865 1! vtforeign 

3 ices 2864 1! hardcopy 

3; 1289 Ser.) i 

: 1290 866 1! SEC_DEV_CHAR.wlu.r COptionet If supplied, the address of 
3; 1291 867 1! a longword to receive the secondary 

3 7 4 868 1! device dependent bits. s is the 

3: 129 sep &. field that, e.g. tells whether a VT100 
3 1294 870 1! has AVO. 

3; 1295 871 1! 

3: 1296 a's , 3 DEVICE_TYPE.wbu.r COptional]. If present, address of byte 
3: 1297 o7 1! to receive hardware device type. These 
; ; Ms th ' are the DT$_type codes. 

3 1 B76 1! RES_NAME_LEN.wwu.r {Optional -- if provided, RES_NAME_ADDR 
3 1301 877 1! must be provided as well.) IT present, 
3 1 § B78 1! the address of a word to receive the 

3 : B B40 : : length of the resultant name string. 

3 1305 881 1! RES_NAME_ADDR.wt.r [Optional -- if provided, RES_NAME_LEN 


K 13 
SSESCAPE_GEN COBSSESCAPE GENERATOR - Escape sequence generat 16-Sep-1984 00:06:34 AX-11 Bliss-32 V4.0-74 Pa 41 
copsse COBSSSETUP_TERM_TYPE - Setup tern nal type for 1 =30 71882 99:06:34 YCOBRTL SRE COBESCGEN.852;1 9 48) 
: 5 ZSBTTL *COBSSSETUP_TERM TYPE = Setup terminal type for COB$$ routines’ 
$ GLOBAL ROUTINE CORES 96 TOF LICR. T PE ( 
NAME _LEN 

8 TERM TYPE, 

8 SEC_BEV_CHAR, 

831 DEVICE TYPE : REF VECTOR C,BYTE), 

8 ¢ RES_NAME_LEN : REF VECTOR L,WORDJ, 

8 RES_NAME_ADDR 

8 de é 

835 lee 


13 
PE_GENERATOR = Escape sequence generat 16-Sep-1984 00:06:34 AX-11 Bliss-32 V4.0-74 
TERM_TYPE = Setup tern nal type for 1 =300- 1382 90:98:20 ECOBRTL SRe COBESCGEN.852;1 


must be provided as well.J] If present, 

the address of a buffer to receive the 

resultant name string. NOTE: is 

routine assumes that the suppl tee buffer 

is sarge enough to contain the resultant 

name string. It must be a minimum of 4 

bytes long and should be at least 64 
bytes jong to guarantee that the name 

w . 


OBSSESCAPE_GEN COBSSE 
808" < COBS$S 


§ 


5 


—- 
Sz 


P 
age 485 


mon 


2SSe 


UEWn— 


IMPLICIT INPUTS: 
NONE | 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 


oo0ono 


SSSSSSSOS 


| 
| 
| 
SIDE EFFECTS: | 
| 
| 


SSSEERSS 


POPRSPoPOPOPOPOPOPOPONONONPOPONOPONONINONONINIPUNINININININIIIIDY 4 3 3 tt es 
~] 
< 
eae 

1 
el 
= 
= 
= 

aw 
4 


~o MEUM —O OONOVUEWN “CO OONOUSWNO 


NONE 
BEGIN 
BUILTIN 
NULLPARAMETER; 
LOCAL 
DEVNAM_DSC : BLOCK (8 gre? ! dsc for name 
3 : VECTOR C$*3 + 1) INITIAL | item List for $GETDVI 
DVIS_DEVTYPE * 16+ 4, 0, 0.! device type 
0 DVIS_DEVDEPEND2 * 16 + 4, 0, 0,! device dependent bits 
1 DVIS_DEVNAM * 16 +64, 0, 0,! result name string 
¢ 0), ! terminater 
4& 


DVI_EFN, event wee SGETDVI, 


FESS 


PORONOPONOMONONONYD 2 


MEW —O OOVNOUE WN "OO OONOUS WN OOM 


a kk ak ad ak a ad tk ed ed ed a as i a a a 8 8 


5 STATUS status retd by called routines 

6 DEV_TYPE : VOLATILE storage for $GETDVI value 

i DEV=DEPEND2 : VOLATILE, storage for $GETDVI value 

9 DEV_DEVNAM : VECTOR (64, BYTE], ! Buffer for result name 

20 ! string 

26 DEV_NAMLEN : VOLATILE WORD; ' Length of returned 
37 — ! resultent name string 
55 DVI_TYPE = DVI_LITMLST + 4 ! make it easy to reference 

28 DVI_DEPEND2 = DVI_ITMLST + 16, ! items retd by $GETDVI 

5 DVI_DEV = DVI_ITMLST + § . : 

38 DVI_NAMLEN = DVI_ITMLST + ; ‘ 

MAP 

30) DEV_DEPEND2 : BLOCK (4, BYTE); 


SCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 16-Sep-19 AX-11 Bliss-32 V4. Pa 43. 
iti COBSSSETUPLTERM TYPE = Stun terminel tyce fos 1E-3en-1944 139bite | Eeban te sae Scosescgew 682.1 15) 
3 pvt aire = DEV_TYPE; ! fill in rest of itmist 
DVI_DEPEND2 = DEV_DEPEND2; 
Ovi pion en = DEV_DEVNAM; 
DVI_NAMLEN = DEV~ EN; 
944 F NOT (STATUS = biescer EF (DdvI -EFN)) 
Be HEN RETURN (.STA ! get unique event flag number 
94 DEVNAM_DSC COSCSB_DTY e34. = DSCSK_DTYPE_T 
94 DEVNAM_DSC [DSCSB_CLASS] = DSCSk- CLASS7S3 
EVNAM_DSC CDSCSWLLENGTH) = .NAME LEN 
DEVNAM_DSC CDSCSA_POINTER 7 = .FILE LNARE ; ! dsc needed for $GETDVI 


a a a a a a ek mk a kk a ed ad 8“ od = od od 
SSLEARRENLSSSLEAEANLS 


Dt et et et el et et ek ae et el nd dk dk dh 


ah a ee A et a 


DONO UEWN—O 


WO OONOUES WH" OVDOrNOu 


STATUS = SGETDVI 5 .DV Vio FF 
IF NOT .STATUS THEN RETURN (.ST ATug): 
SWAITFR (EFN = .DVI_EFN); ! make SGETDVI synchronous 


IF NOT (STATUS = LIBSFREE EF (DVI_EFN)) 
THEN RETURN (.STATUS); ! free event flag 


Epistar -DEV_TYPE OF 


COT$_vT100): 
TTERM_TYPE = VT100; 


COT$S_vT52, DOTS WV1392: 
STERM_TYPE™= VT52; 


COT$_vT05): 
TTERM_TYPE = VTOS; 


CDT$_FT1 TO prs. FT2): 
~TERM_TYPE = VTFOREIGN; 


CoTs ~LAs6. DT$_LA120, Ate ~bA34, DT$_LA38): 
M_TYPE™= HARDCOPY 


COTHERWISE): 


stints tine = DEVNAM_DSC, 


IF .DEV ~ PE ENDS ptt $V_DECCRT] OR 
-DEV-DEPEND2 CTT2$V_ANSICRT) 
-TERM_TYPE = VT100 ! VT100 compatible (ANSI) 


ELSE 
Tes -TERM_TYPE = UNKNOWN; ! really unknown 


'¢ 
: Return optional parameters if requested. 
é IF NOT NULLPARAMETER (4) 

-SEC_DEV_CHAR = .DEV_DEPEND2; 


IF NOT NULLPARAMETER (5) 
THEN 


SCAPE_GEN COBSSESCAPE_GENERATOR = Escape sequence generat 16-Sep-19 AX-11 Bliss-32 V4.0-7 P 44 
4285 3 He rer RA_TY © Setup tera nal type for 18-30-1984 99: 98:3 COBRTL.SRCICOBESCGEN. 8 2:1 20e 18) 


; 14 DEVICE_TYPE CO] = .DEV_TYPE; 
: 14 3 IF NOT NULLPARAMETER (6) AND 
: 14 T NULLPARAMETER (7) 
es "esin 
: 14 CHSMOVE ( .DEV NAMLEN, DEV DEVNAM, .RES_NAME_ADDR) ; 
; 14 $ RES. NAME LEN to} = .DEV_NARLEN; 
: 14 
: 14 RETURN (. STATUS); 
+ 1431 ! End of routine COBSSSETUP_TERM_TYPE 
00000000 00000000 001¢0004 00000 00000000 00060004 Gore P.ABC Pine $93220 0. 0, 1835012, 0, 0, 2097216, 0 
80080080 000 tiatdita 0200040 0050¢ 0. 0 te OMe 
-EXTRN SYSSGETDVI, SYSSWAITFR 
007¢ 000 .ENTRY C¢ SSE TUP TERM_TYPE, Save R2,R3,R4,R5,.R6 ; 2826 
SE 80 A 3 000 ROVAR -128(SP), SP : 
50 AE — AF 2 é 0006 MOVCS #40, P. ric DVI_ITMLST + 2918 
4 AE 4C AE SE 0000C MOVAB DEV_TYPE, bv 1_TYP + 2939 
60 AE 48 AE 9E 00011 MOVAB DEVDEPEND2, BVI DEPEND2 + 2940 
6¢ AE 08 AE 9E 00016 MOVAB DEV“DEVNAM, DVI_DEVN + 2941 
AE AE 9€ 00018 MOVAB DEV- _NAMLEN, Dv1- “NAMLEN : 2942 
3 DD 000 PUSHL + 2944 
000000006 90 FB 00 CALLS #1, LIBSGET _EF : 
6 0 00 000 MOVL RO. STATUS : 
41 6 €9 0002C BLBC = STATUS, 18 : 
7A OA 0106 8F 60 00 F MOVW #270, DEVNAM_DSC+2 : 2947 
78 «AE 08 Ac By 0035 MOVW ELEN, DEJNAM DSC > 2949 
7C «AE 04 AC p 003A MOVL FILE“NAME, DEVNAM_DSC+4 : 950 
7E 7C 0003F CLRO 0s = (SPT > 295 
7E 7C€ 00041 CLRQ = (SP) : 
60 AE 9F 00043 PUSHAB DVI _ITMLST ; 
FB AD OF 0046 PUSHAB DEVRAM_DSC ; 
7E D4 0004 CLRL = (SP) ; 
1¢ AE DD 00048 PUSHL  DVI_EFN : 
000000006 90 FB 0004 CALLS #3,” SYSS$GETDVI ; 
‘ DO 0005 MOVL R us : 
1 6 €E 09 BLBC = STATUS, 1 : 2954. 
DD 28 PUSHL DVI_EF > 2956 
000000006 00 FB D CALLS #1, SYSSWAITFR : 
F DD 00 PUSHL § > 2958 
000000006 90 FB 00066 CALLS #1, LIBSFREE _EF ; 
: 0 D 6 MOVL RO. STA Tys : 
0 6 5 1$: BLBS STATUS. : 
009¢ BRW 2$ : | 
50 4c AE OCOD 7 2%: MOVL DEV_TYPE, RO > 2961 
00000060 &F 5 p 7A CMPL = RO, "#96 > 2963, 
4 ; 1 BEQL 7 3 
3F 5 ° 3 CMPL = RO, #63 > 2966 | 
OF ° BLEG = 3 : | 
00000041 aF 0D CMPL = RO, #65 : 
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14 
COBSSESCAPE_GEN COBSSESCAPE GENERATOR = Escape sequence generat 16-Sep-1984 99:06: 36 AX-11 Bliss-32 HPS led Page 46 
1-003 COBSSUP_SCROLL_R2 = Create up scroll sequence 14-Sep-1984 12:10:44 COBRTL.SRCJCOBESCGEN.B852;1 (16) | 
3; 14 09 1 ZSBTTL ‘COBSSUP_SCROLL_R2 - cregte up scroll sequence’ 
; 1435 10 1 GLOBAL ROUTINE COBSSUP“SCROLL_R2 ( 
3; 14 110641 TERM_TYPE; 
3; 14 bg 1 BUFFER 
; 1438 013 1 CUR_ SIZE 
; 1439 014 1 ) : COBSSESC_R2_LNK = 
: 1440 015 1 !+¢ 
3 1441 BIS 1 ! FUNCTIONAL DESCRIPTION: 
: 1306 O17 1! 
: 144 018 1! This routine generates the escape sequence for up scroll. 
: Vote B38 : } The string is appended into the buffer. 
; re 031 : CALLING SEQUENCE: 
: 1448 958 1! ret_status.wlc.v = COBSSUP_SCROLL_R2 (TERM_TYPE.rl.v, BUFFER.mt.r, | 
3 1449 3024 1! CUR_SIZE.ml.r) 
; 1450 025 1! 
3 1451 026 1 ! FORMAL PARAMETERS: 
H 1ee6 027 1! 
3: 145 028 1! TERM_TYPE.rl.v terminal type 
3 1454 Ht44 ; BUFFER. mt.r addr of buffer | 
3; 1455 050 7 ! CUR_SIZE.ml.r # bytes currently in buffer 
: 1456 031 1! 
3; 1457 O36 1 ! IMPLICIT INPUTS: 
>; 1458 035 1! 
3 1459 034 1! NONE 
: 1460 035 1! 
3; 1461 3036 1 ! IMPLICIT OUTPUTS: 
; 1008 3037 1! 
3: 146 3038 1! NONE 
3 1464 3039 1! 
3: 1465 3040 1 ! COMPLETION STATUS: 
3 1466 3041 1! 
: 1467 $008 1! 
3 1468 3045 1 ! SIDE EFFECTS: 
3 1469 3044 1! 
: 1470 spe? 1! NONE 
3 1471 046 1 !-- 
: O06 3047 1 
3 147 048 BEGIN 
3 1474 049 
3 1475 050 LOCAL 
3: 1476 3051 FREE_ADDR : REF VECTOR C,BYTE); 
3 1477 3028 
; 1478 093 FREE_ADDR = .BUFFER + ..CUR_SIZE; 
; sea p32 CASE .TERM_TYPE FROM UNKNOWN TO HARDCOPY OF 
; 1o86 O89 CvT05): 
3; 148 058 BEGIN 
3: 1484 059 FREE_ADDR (0) = LF; 
3; 1485 060 FREE_ADDR (1) = NULL; 
: 1486 061 FREE_ADDR § = NULL; 
3 1487 beg FREE_ADDR = NULL; 
> 1488 06 .CURTSIZE = ..CUR_SIZE + 4; 
3 1489 064 END; 
: 1490 065 
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1508 


ESCAPE _GEN : 


0016 


3; Routine Size: 


OOCOCOCOCCCoCoCoCooooo 


co 
N— 


OBSSESCAPE GENERATOR = Escape sequence 
OBSSUP_SCROLL_R2 = Create 5 3 


CvT52, vT100 
BEGIN 


}: 


rR CO) = LF; 
—E = ..CUR_SIZE + 1; 


CHARDCOPY, UNKNOWN, VTFOREIGNI: 


CINRANGE, OU 
RETURN 0 


TES; 


TRANGE): 


RETURN (SS$_NORMAL); 


1 END; 


41 bytes, Routine Base: 


3083 


1 !<BLF /PAGE> 


62 CO 00000 COBS$UP_SCROLL_R2:: 
ADDL (CUR_SIZE), FREE_ADDR : 3053) 
50 CF 00003 CASEL TERM TYPE, #0, #5 : 3055 | 
0018 00007 1$: <WORD 4$-15,- : | 
0018 0000F g8-1$.- ; 
$-1$,- 3 
3$-1$.- : | 
4$-1$,- $ | 
4$-1$ $ 
11. 11 00013 BRB 5$ : 3076) 
OA 00 00015 28: MOVL #10, (FREE_ADDR) : 3059. 
04 CO 00018 ADDL2 #4, (CUR_STZE) : 3063 
05 11 0001B BRB 4$ : 3055 
0A 90 0001D 38: MOVB #10, (FREE_ADDR) : 3068 
62 D6 00020 INCL (CUR_SIZE) : 3069 
01 0 000 é 4$: MOVL #i, RO ; 3080 
05 000 RSB ; 
50 04 00026 5$: CLRL ~—_ RO ; 3082. 
05 00028 RSB : 


_COBSCODE + 0632 


D 14 
enerat 16-Sep-1984 00:06:34 AX-11 Bliss-32 V4.0-74 P 47 
up scroll sequence 4 99:0 244 S ScosESCGEN BS2:1 _ 


COBRTL.SR 


(16) 


14-Sep-1984 


! should never get here 


! End of routine COBS$UP_SCROLL_R2 


— 


COBSEESCAPE GEN COBSSESCAPE GENERATOR = Escape sequence generat 1h-s¢ =200- 1388 99:0 734 AX-11 Bliss-32 V me Page 48 
1-00 COBSS$UP_SCROLL_R2 = Create up scroll sequence 14-Sep-1984 10:44 COBRTL. SRC COBESC N.852;1 (17) 
; 134 3083 ! END ! End of module COBSSESCAPE_GENERATOR 

: 1512 O86 0 ELUDOM 

: PSECT SUMMARY 

3 Name Bytes Attributes 

; _COBSCODE 1627 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

: =secce Symbols -------- Pages Processing 

s File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 30 0 581 00:00.7 

3 ~$255$DUA28: CCOBRTL.OBJJSMG (tect 32;1 469 31 6 38 00:00.2 

; COMMAND QUALIFIERS 


BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:COBESCGEN/0BJ=0B$: COBESCGEN MSRC$: COBE SCGEN/UPDATE=(ENH$: COBESCGEN 


Size: 1396 code + 231 data bytes 
Run’ Time 00:24.7 


Elapsed. Time: 01: 3° 
Lines/CPU Min: 7484 
,ovenes (ewe) 27092 
Y Used: 234 pages 
eee’ ation Complete 
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